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PREFACE 


The Timex Sinclair 2068 
computer is a very capable musical 
instrument. It can pl^y music in 
one, t(Mo, three, or four voices. It 
can be easily programmed for music 
in BASIC by means of the BEEP and 
the SOUND commands. And its 
frequency range is almost 11 
octaves. 

This book presents 30 BASIC 
programs for T/S 2068 that play 
various musical compositions. Most 
of the compositions selected for 
the book are well-known and 
universally admired representatives 
of popular, classical, and folk 
music. A few of the compositions 
are not so well known but are not 
less pleasing than the others. 

The book is divided in three 
parts. The first two parts contain 
programs that play music in one 
voice by using the BEEP command. 
The third part contains programs 
that play music in several voices 
by using both the BEEP and the 
SOUND commands. 
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A special feature of the book is 
a collection of programs that can 
be used for practicing guitar 
accompaniment. They are contained 
in the second part. When these 
programs are played, the 

corresponding guitar chords are 
displayed on the screen. 

Another special feature is the 
presence of three "Music Box 
programs that can be used to 
combine all of the compositions 
presented in the book and to select 
any of them for playing. 

The book has been designed for 
music lovers of all ages and all 
backgrounds. Therefore most of the 
programs are very simple. The 
functioning of the various programs 
is clearly explained. However, it 
is not necessary to know how they 
work in order to copy and to play 
them. 

I am pleased to express my 
gratitude to my wife Valentina who 
helped to transcribe the various 
compositions for the book and 
assisted in the preparation of the 
book for publication. 


Oleg D. Jefimenko 
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MEET THE BEER* 
CMAIMNEl- 


The BEEP channel of T/S 2068 
can play all sorts of compositions 
in a most satisfactory manner. 
However, the sound produced by the 
computer's internal speaker is 
rather poor. To obtain a really 
good sound, you should connect your 
computer to a regular audio system, 
to a TV <if it has an audio input), 
or to a cassette recorder with a 
good audio amplifier. The BEEP 
signals come out of the MIC socket 
of the computer. Use a suitable 
cable to connect this socket to the 
input terminal of your audio 
system. The cassette recorder that 
you use to SAVE your T/S 2068 
programs will probably also play 
the BEEP signals, if you pull out 
the earphone plug from the recorder 
and press the PLAY and PAUSE 
buttons of the recorder (the MIC 
terminal of the recorder should, of 
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course, be connected to the MIC 
“terminal of -the computer). 

The following program will 
acquaint you with T/S 2068 BEEP 
tones. The program plays all 88 
piano notes from the highest to the 
lowest and back. 


*** 

* Program A * 


10 5UKE>tiK 4: PhPER 6; CL5 
20 PRINT PhPER 5;RT 4,6;“THIS 
PROGRAM PLAYS''AT 6,6; “ALL 66 Hi 
ANO NOTES" 

50 PRINT AT 11.4;“PRESS ANY KE 
Y TO START" 

40 PAUSE 0 
50 FOR K =1 TO 66 
60 BEEP .05,4Q-K 
70 NEXT K 
60 FOR K=1 TO So 
90 BEEP .05,-39+K 
100 NEXT K 
110 5T0P 

120 SAUt “PIANO" LINE 10 


* Explanation of the program * 

The program works as follows. 
Line 10 sets the green border and 
yellow background for a pleasing 
visual effect. Line 20 displays on 
the screen the message explaining 








the purpose of the program; the 
message is printed on the cyan 

background. Line 30 instructs the 
operat;or how t;o otiarl; t;hw playing. 
Line 40 waits until a key is 
pressed. 

Lines 50 and 70 de-fine a 
FOR-NEXT loop that executes 88 
times the BEEP command contained in 
line 60. Each time when this 
command is executed, a different 
note, starting with the highest 
(k=l) and ending with the lowest 
(k=88>, is played. The duration of 
each note is 0.05 of a second. 

Lines 80, 90 and 100 are the 
same as lines 50, 60 and 70, except 
that the notes are now played from 
the lowest to the highest. Line 110 
stops the program. Line 120 saves 
the program on tape, if desired, 
and makes the program self-starting 
when loaded back into the computer. 



I_E:C3^T0 AMD 
SXACCATO 


□ur -first program (Program A) 
IS written in such a manner that 
once a particular note has started, 
the note continues until the next 
note begins. Thus all notes are 
played one after the other without 
interruption. This is the legato 
mode of the BEEP sound. 

However, by using the PAUSE 
command after each note, one can 
introduce short rests between the 
notes. As a result, each note 
terminates before the next one 
begins. In this way one creates the 
staccato mode of the BEEP sound. 

The following program shows the 
difference between the two modes. 

* Program B 

10 BORDER 4-: PAPER 6; CLS 
20 PRINT AT 10,12.; "LEGATO" 
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30 FOR 1=4-6 TO -14- STEP -3 
40 BEEP 1/3,1 
50 NEXT I 

60 CLS : PRINT RT 10,11;"STflCC 
RTO" 

70 FOR 1=46 TO -14 STEP -3 
80 BEEP 1/16,1. PAUSE 1/16*60 
90 NEXT I 
100 GO TO 10 

110 SflUE "STflCCRTO" LINE 10 


* Explanation of the program * 


Line 10 sets the green border 
and yellow background, as before. 
Line 20 prints the word "LEGATO" in 
the center of the screen. 

Lines 30 and 50 define a 
FOR-NEXT loop for playing downward 
20 different notes at 3-semitone 
intervals. Line 40 plays the 
notes. Their duration is 1/8 of a 
second. 

Line 60 clears the screen and 
prints the word "STACCATO" in the 
center of the screen. 

Lines 70 and 90 are the same as 
lines 30 and 50. Once again the 
BEEP notes are played, this time 
by line 80. However, the duration 
of each note is now only 1/16 of a 
second, and each note is followed 
by a rest (pause) that lasts for 
1/16 of a second. 

Line 100 returns control to line 
10, so that the program repeats 
itself. Line 110 saves the program 
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on tape, i-f desired; the 
program starts by itself 
loaded back into the computer 


saved 

when 






OLJIT#^R “TLJIMER 


The T/S 2068 BEEP generator 
is at least as reliable a frequency 
standard as the pitch pipes 
commonly used for guitar tuning. 
One can use therefore the BEEP 
sound of the T/S 2068 for tuning 
the guitar. The program presented 
here generates on demand the pitch 
of each of the six guitar strings. 

*** 


♦ Program C * 


10 BORDER 4: PRPER 6; CLS 
£0 PRINT PAPER 5;flT 4,b;"*TUNI 
NG THE GUITAR*” _ ^ ^ = 

30 DIM 5(6); LET S ( iJ =4 ; LCT S 
f2)=-l: LET 5(3)=-5; LET Ul4)=-1 
(3; LET 5 (5) =-15: LET S (6) =-20 
40 PRINT PAPER 5;AT 8,S;"5TRIN 


G NUMBER?" Ttr 

50 PAU5E 0; LET N$=INKEY$: IF 
CODE N$<49 OR CODE N$>54 THEN UO 


TO 50 

60 LET N=0AL N$ -r-r,TK. 

70 PRINT AT 12,5.: “TUNINU OTRIN 

G NUMBER ";N 

30 BEEP 5,5(N) 
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90 GO TO 10 

100 SRUE *‘GUXT«R** LINE 10 

* Explanation of the program * 

The program functions as 
follows. Line 10 sets the green 
border and yellow background for a 
prettier visual effect. Line 20 
prints the title of the program on 
the cyan background. Line 30 
assigns six BEEP tone values to the 
array S, each value corresponding 
to the pitch of one of the six 
guitar strings. Line 40 requests to 
press a number key whose number is 
the same as that of the string to 
be tuned. 

Line 50 identifies the key that 
is pressed. If the key represents 
a number between 1 and 6, this 
number is assigned to the variable 
N in line 60. If any other key is 
pressed, the program repeats line 
50 again. Line 70 displays on the 
screen the number of the string 
that was selected in line 50. Line 
80 generates the pitch of the 
selected string. Line 90 returns 
the program to the beginning, so 
that another string can be tuned. 

The duration of the tone 
generated in line 80 is 5 seconds- 
If desired, it can be made as long 
as 10 seconds by replacing the 
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We are now ready for our 
first composition program. This 
program is relatively short and 
simple, so that it can be copied 
easily. The composition is the 
traditional "Happy Birthday to 
You!" It is transcribed in the key 
of C. 

< 

♦ Program 1 * 


10 BORDER 4-: PAPER 6; CL5 : 
RD N$,TEMPO 

20 PRINT PAPER 5,: "**-jr***^f** 
U PLAYING m^i*****" 

30 PRINT AT 10,(31-LEN N$J/ 


RE 
NO 
2; N 


4-0 PRINT PAPER 5 ; AT £l,0j 
i-t-t*** NOU PLAYING it******** 
50 READ NOTE,UALUE 
60 BEEP TEMPO/OALUE,NOTE; 


-+• ** 

GO T 


0 50 

70 5T0P 

30 SPUE “BIRTHDPy LINii 
1000 DhTh “HPPfY BIRTHDPy 
! *• , 1 . 5 


10 

TO 


"DU 


12 
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1010 DATA 7,8,7,8,9,4,7,4,12,4-. 1 
1,2,7,3,7,8,9,4,7,4,14,4,12,2,7, 
8,7,8,19,4,Id,4,12,3,12,8,11,4.9 
,4,17,8,17,8,16,4,12,4,14,4,12,4 
/3 


* Explanation of the program * 

As before, line 10 sets the 
border and background. In addition, 
it instructs the computer to read 
the name (designated as N^> and the 
tempo of the composition, which are 
given in the first DATA statement, 
line 1000. 

Line 20 prints at the top of the 
screen on the cyan background a 
series of asterisks with the words 
"NOW PLAYING" between them. Line 30 
prints the name of the composition 
centered between the left and the 
right margins in the middle of the 
screen. Line 40 is the same as line 
20, except that the asterisks and 
the words are printed at the bottom 
of the screen. 

Line 50 instructs the computer 
to read the notes and their 
durations (values), which are given 
in the second DATA statement, line 
1010. The data in this list are 
arranged in pairs: the first number 
of each pair is the pitch of the 
note to be played, the second 
number is its duration. 
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Line ^>0 plays a note and then 
returns control to line 50, so tha't 
the next note can be read and 
played. Line 70 stops the program 
after all the notes have been 
piayed. 

Line 80 makes it possible to 
save the program, if desired. The 
DATA list starts with line 1000 
rather than with some other line 
number in order to simplify the 
placing of this composition in 
"Music Box 1“ (see Chapters 5 and 
18) . 
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BEIL. 1^8 


Although simple programs like 
the one just presented (Program 1) 
are perfectly adequate for playing 
any composition, they lack the 
flexibility and convenience that a 
really good music program should 
have. This deficiency is corrected 
in the program presented here. The 
program not only plays the compo¬ 
sition but also allows one to 
change its tempo and tonality 
(key). Furthermore, it makes it 
possible to play the composition 
continuously rather than just once. 

The composition is the lovely 
"Jingle Bells." It is 
trcinscribed in the key of G. 

Notes 

Starting with this program, you 
have a choice to copy each program 
as it appears in the book or, 
preferably, to construct ' your 
"Music Box 1." To construct the 
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Music Box, first copy the "Music 
Box 1" program (Chapter 18) and 
save it on tape. Then add to it the 
DATA lists for the individual 
compositions and again save it, 
this time with the DATA lists that 
you have incorporated into it. Do 
not copy any lines from the 
individual programs other than the 
DATA lines. 

In this way you will save a 
great deal of time and effort and 
will have all compositions in one 
comprehensive program that offers 
not only all the flexibility of the 
individual programs but also a 
choice of the composition to be 
piayed. 


* Program 2 * 


10 BORDER 4-: PAPER 6: CL5 ; RE 
RD N $ , R 

20 LET FF=0: LET TT = 10; LET ti = 
0: LET Z$=“” 

30 PRINT PAPER 5; “*****-tNu 
y PLAYING *****“ 

40 PRINT AT 10, (31-LEN N$)/i=:,N 

$ 

50 PRINT PAPER 5 AT 21,0; *** 

iiri-tra NOU PLAYING *'*-****'Sf*'^” 

60 PRINT PAPER 3; INK 7;hT h0, 
0, "TO STOP. hRcSS ‘‘"SHIFT"" + 

BREAK. 

70 LET T=R*TT 
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S0 REhD F.U: UN ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 
100 PHU5E T/U*60: GO TO 30 
110 BEEP T/U,F-fFF*. GO TO 80 
120 ON ERR RESET 

130 RESTORE 1210: IF Z$="l“ THE 
N GO TO 80 

140 CLS ; PRINT RT 7.0:“PRESS “ 
“1““ TO PLRY CONTINUOUSLY“ 

150 PRINT •'“PRESS •••*2““ TO PLRY 
DIFFERENTLY“ 

160 PRINT "“PRESS *••*5““ TO STOP 

170 PRUSE 0: LET Z$=INKE'Y$ 

130 IF Z$ = “l" THEN CLS : GO TO 
30 

190 IF Z$=“2“ THEN GO TO 210 
200 STOP 

210 CLS : PRINT RT 4,0;“YOU CRN 
PLRY THIS COMPOSITION*’ 

220 PRINT “RT R DIFFERENT TEMPO 
. THE“ 

230 PRINT “ORIGINAL TEMPO IS 10 
. INPUT 10“ 

240 PRINT “TO RETRIN THE ORIGIN 
RL TEMPO.“ 

250 PRINT “INPUT R LARGER NUMBE 
R FOP R“ 

*260 PRINT “SLOWER TEMPO. INPUT 
R SMALLER** 

270 PRINT “NUMBER FOR R FASTER 
TEMPO.“ 

230 INPUT TT 

290 CLS : PRINT RT 4,0;“YOU CRN 
CHANGE THE TONALITY** 

300 PRINT **OF THE COMPOSITION. 
INPUT 0 TO“ 

310 PRINT “RETRIN THE ORIGINAL 
TONALIT/.“ 

320 PRINT “INPUT A POSITIUE NUM 
BER TO MAKE** 

330 PRINT **THE TONALITY HIGHER. 
INPUT A** 

340 PRINT **NEGATIUE NUMBER TO M 
AKE IT** 

350 PRINT **LOUER. EACH UNIT CH 
ANGE5 THE** 


ob0 PkXnT 
-TONE.“ 

370 INPUT 
380 5hUE 
1200 DhTh 
1210 DPTh 
. 4.13.4,13 
11,4,i3,4/ 
14:4.14.4, 
1220 DhTh 
.4.15,4,11 
.13.4.13,4 

9.4.13.4.1 
1230 DhTh 

4.4.14.4.1 
4,99,4,16, 
9.4,21,4,9 


“tunhlit'z By one semi 


FF: CL 
“JINGLE 
“JINGLE 
13,4,13 
.4:99,4 

3 . 99 . 4 . 

13.4 

13,4,99 
.4,99,4 
.99,4,1 

6.4 

9,4,11, 

4,4,14, 

4.16.4, 


5 GO TG 
“ LINE 10 
BELLS** . .i 
,4.13,4.9-= 
, 13,4,16,^ 

14.4.14.4. 

,4,13,4,1: 
,16,4,99,i 

3.4.13.4. : 

4.13.4/3,b 
4.14,4,13. 

14.4.11.4. 


* Explanation of the program * 


Line 10 sets the border and 
background and then reads the name 
N$ and the tempo rate R of the 
composition from the first line of 
the DATA list (line 1200). Line 20 
initializes the key modifier FF, 
the tempo modifier TT, and the flag 
(control string) 

Lines 30-50 print the “title 
page I“ just as lines 20—40 of 
Program 1 did. Line 60 prints on 
the title page the instruction how 
to stop the playing. 

Line 70 sets the tempo equal to 
the tempo rate R multiplied by the 
tempo modifier TT (initially 
TT=10). Line 80 reads a note or a 
rest, both designated as F, and 
their duration (value), designated 
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as V, -from the second and the 
following lines of the DATA list 
(lines 1210 etc.). The ON ERR 

alMtttmctn't in line SO tr«n»f«r-» 
control to line 120 after the last 
note of the composition has been 
played. 

Line 90 checks if there is a 
rest in the composition (F=99); if 
a rest is absent, the program 
proceeds to line 110. If a rest is 
present, line 100 is executed. 
This line introduces a PAUSE for 
the duration of the rest, after 
which control is transferred to 
line 80, so that the next note or 
rest can be read. 

Line 110 generates a BEEP signal 
whose duration is determined by the 
tempo T and by the value of the 
note (or rest) V. The pitch of the 
signal is controlled by the 
quantity F+FF, where F is the note 
as it appears in the DATA list, and 
FF is the key modifier (initially 
FF=0). After the BEEP signal has 
been generated for the indicated 
duration, control is transferred to 
line BO, and the next note (or 
rest) is read. 

Line 120 removes the ON ERR 
restriction introduced in line 80 
(unless the restriction is removed, 
the program cannot be stopped, 
except by turning the computer 
off). 
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and the 
again. It 
1 1 ne 140 
clears the 
lines 150 


130 causes the 
statement ot line 80 to start again 
■from the second line of the DATA 
list, which is needed for repeated 
playing of the composition. Then it 
checks whether the flag T.% is set 
to "I" (initially If it is, 

control is transferred to line 80, 
composition is played 
is not set to “1", 
is executed. This line 
screen and together with 
and 180 prints the 
instructions ("menu") for playing 
the composition continuously, for 
playing it differently, or for 

stopping the playing. 

Line 170 waits until a key is 
pressed. Then it assigns the symbol 
represented by this key to the 
string Z«, after which line 180 is 
executed. If is "1", the screen 

is cleared and control is trans 
ferred to line 30 for a continuous 
playing of the composition. If Z4t- 
is not "1", line 190 is executed. 
If Z# is "2", then line 190 
transfers control to line 210. If 
1% is neither "1" nor "2", line 200 
is executed, and the program stops. 

Line 210 clears the screen and 
together with lines 220-270 prints 
the instructions for changing the 
tempo of the composition. Line 280 
accepts the number for the desired 
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tempo modifier TT. Line 290 clears 
the screen once again and together 
with lines 300-360 prints the 
instructions for changing the key 
<tonality) of the composition. Line 
370 accepts the number for the 
desired key modifier FF, clears the 
screen, and transfers control to 
line 30 for a new playing of the 
composition. 

Line 380 saves the program, if 
desired. 

Line 1200 contains the DATA for 
the name and for the tempo rate of 
the composition. Lines 1210, 1220 
and 1230 contain the DATA for the 
notes and rests of the composition. 

The notes and the rests are 
listed in the DATA statements in 
the following manner. Each note or 
rest is represented by two numbers; 
the first is the pitch, the second 
is the value. Pitch = 99 represents 
a rest. The values of the notes and 
rests as they appear in the DATA 
statements are the reciprocals of 
the values as they are actually 
written in the score of the 
composition. For example; one whole 
note is 1, one half is 2, one 
quarter is 4, one eighth is 8, 
three eighths is 8/3, three 
sixteenths is 16/3, etc. 
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BFtXDAL- CHORUS 


Our next composition is the 
•famous "Bridal Chorus" -from the 
opera "Lohengrin" by the Oerman 
composer (Wilhelm) Richard Wagner 
(1B13-1883). Better known as "Here 
Comes the Bride," it became one o-f 
the most ■familiar wedding marches 
and is frequently played at the 
beginning of the ceremony. This 
composition is transcribed in the 
key of Cm 




* Program 3 * 

10 BORDER 4; PAPER 6. CLS : RE 

Q r. K] ± p 

20 FF=0: LET TT = 10 : LET B = 

0: LET 2$ = ““ _ 

30 PRINT PhPcR 5; “*•*•*■■*HU 
U PLAYING -St. Ki 

40 PRINT AT 10, (31-LEN N$J/c.,N 

* 50 PRINT PAPER 5 AT 21,0; " 
****** NOW PLhYING ******■****_ 

60 PRINT PAPER 3; INK 7.; hT 20 , 
0;“TO STOP. PRESS “"SHIFT"" + 
BREAK. 






70 LET T=R*TT 

30 READ F,U: ON ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 
100 PAUSE T/U*60: GO TO 30 
110 BEEP T/U.F+FF, GO TO 30 
120 ON ERR RESET 

130 RESTORE 1410; IF Z* = "l‘‘ THE 
N GO TO 30 

140 CLS PkINT RT 7..0; “PRESS " 
"1“" TO PLAY CONTINUOUSLY" 

150 PRINT -“PRESS ••"2““ TO PLAY 
DIFFERENTLY" 

160 PRINT '“PRESS "“S"" TO STOP 

170 PAUSE 0: LET Z$=INKEY$ 

130 IF Z$=“l“ THEN CLS . GO TO 
30 

190 IF Z$=“2“ THEN GO TO 210 
200 STOP 

210 CLS ; PRINT AT 4,0;“YOU CAN 
PLAY THIS COHPOSITION" 

220 PRINT “AT A DIFFERENT TEHPO 
. THE" 

230 PRINT “ORIGINAL TEMPO IS 10 
. INPUT 10“ 

240 PRINT “TO RETAIN THE ORIGIN 
AL TEMPO.“ 

250 PRINT “INPUT A LARGER NUMBE 
R FOR A“ 

260 PRINT “SLOWER TEMPO. INPUT 
A SMALLER" 

270 PRINT “NUMBER FOR A FASTER 
TEMPO.“ 

230 INPUT TT 

290 CLS : PRINT AT 4,0;“YOU ChN 
CHANGE THE TONALIT/“ 

300 PRINT “OF THE COMPOSITION. 
INPUT 0 TO" 

310 PRINT “RETAIN THE ORIGINAL 
TONALITY.“ 

320 PRINT “INPUT A POSITIUE NUM 
BER TO MAKE" 

330 PRINT “THE TONALITY HIGHER. 

INPUT A" 

340 PRINT "NEGATIUE NUMBER TO M 
AKE IT" 

350 PRINT “LOWER. EACH UNIT CH 
ANGES THE" 


360 PRINT “TONRLITY BY ONE SEMI 
-TONE.” 

370 INPUT F!" : CLS GO TO 30 
380 ShUE “BRIDPL" LINE 10 
1400 DhTR “BRI£>HL CHORUS",. 

1410 DRTh 7,4,7,5.33,7,16,7,4,7, 

4.7. 1 ,7.4. 12 .5.33, 12 ,16, 12 , 2 ,7,4 
.i4.5.33.il,16, 12 , 2 ,7,4, 12 ,5.33, 
17.i6.17,4,16,8,14,8 
1420 DRTR 12.4.11,5.33,12,16,14, 
2.7,4.12.5.33,12,16,12,2,7,4,14, 

5.33 , i 1, i 6 ,12,2,7,4,12 ,8 , lb , 8,19 
.4.16.8.12.8,9,4,14,8 
1430 Dfltfl 16,3,12,2,17,4,16 , . 5 ,14 
.8.9.4.y.4,11,4,1^,5.53,14,lb,14 

. 2 '. 17,4 , i6,3,14,8,9,4,9,4,11,4,1 

2 ,5.33,14,lb,14, 2 

1440 DRTR 7,4,12,5.33,12,16 , iL , ii 
.7,4.14.5.33,11,16,12,2,7,4,12,3 
.16.3,19,4,16,8,12,8,21,2,19,3,1, 
7.3.16.3,14,3,12,1 


♦ Explanation of the program * 


The program is identical to 
Program 2, except for lines 130, 
380 and for the DATA list. The DATA 
list starts with line 1400. 
Therefore the RESTORE statement in 
line 130 refers to line 1410, where 
the DATA for the notes begin. The 
name used in line 380 is now 
"BRIDAL." 


















TTME: IF5ISM 


The composition presented 
here is a popular Irish jig- Its 
name is “The Irish Washerwoman." 

The jig is a fast, spirited 
dance of the common people. It 
originated centuries ago. William 
Shakespeare, in "Much Ado About 
Nothing," called the jig "hot and 
hasty." Many classical composers 
incorporated the jig? or the 
"gigue," as it is usually called, 
in their musical works. 

The "Irish Washerwoman" is 
transcribed in the key of C. 

*** 

* Program 4 * 


10 BORDER 4: PAPER 6; CL5 : RE 

'^^20*LET FF=0: LET TT = 10: LET B = 
0: LET 2$=“" 

30 PRINT PRPtiR 5.: NO 

U PL-RYINU 
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4-0 PRINT AT 10, (31-LEN N$) /2j N 


50 PRINT PAPER 5 ;AT 21,0; 
mm NOU PLAYING *•*••*•♦•*•***■*■ 
60 PRINT PAPER 3; INK 7; AT 
0;“TO STOP. PRESS ••"SHIFT"” 
BRERK/^"^^ 

70 LET T=R*TT 
80 READ F.U: ON ERR GO TO 
90 IF F<>99 THEN GO TO 110 
100 PAUSE T/U-S-60: GO TO 80 
110 BEEP T/U,F+FF; GO TO 80 
120 ON ERR RESET 
130 RESTORE 1610: IF = 

N GO TO 80 

140 CLS : PRINT AT 7,0; ••PRE 
..!•••• yg PLAY CONTINUOUSLY•• 
150 PRINT -‘•PRESS TO 

DIFFERENTLY" 

160 PRINT -“PRESS ■■“S"" TU 


20 , 
+ “ “ 


120 

THE 

55 

PLhY 

STOP 


170 PhUSE 0: LET Z$ = INKE^Y$ 

160 IP 2$ = “1*‘ THEN CL5 : GO TO 
30 

190 IF 2$=*‘2‘* THEN GO TO 210 

200 STOP __ 

210 CLS : PRINT RT 4,0;“yUU UHN 
PLPY THIS COMPOSITION'* - 

220 PRINT “hT h different TEMPu 
THE ** 

*230 PRINT "ORIGINAL TEHPO IS 10 
. INPUT 10“ 

240 PRINT “TO RETAIN THE ORIUiN 
Pi- TEHKO." 

250 PRINT "INPUT A LhRuER NUHbE 

R FOR R** T irM j-r 

260 PRINT "SLOUER TEMPO. INPUT 

A SMALLER" _ _ r=-r. 

270 PRINT “NUMBER FOR H FhbTER 

TEMPO.“ 

280 INPUT TT __ 

290 CLS : PRINT RT 4,0; “YUU LHN 
CHANGE THE TONALIT'(-“ 

300 PRINT "OF THE COMPObITIuN. 
INPUT 0 TO" 

310 PRINT "RETAIN THE uRIGINhL 
TONALITY . ” 






27 


320 PRINT “INPUT fl P05ITIUE NUM 
BER TO MAKE" 

330 PRINT “THE TQNRLIT/ HIGHER. 
INPUT fl“ 

34.0 PRINT “NEGPTIUC NUMBER TO M 
RKE IT" 

350 PRINT “LOUER. EfiCH UNIT CH 
RNGES THE" 

360 PRINT “TONALITY BY ONE SEMI 


-TONE. “ 

370 INPUT FF: CL5 : GO TO 30 
380 SAUE “IRISH" LINE 10 
1600 DATA “THE IRISH UASHERUOMAN 
“...08 

1610 DATA 19.. 16,17,16,16.. 8.. 12.. 8. 
12.8.7.3,12,8,12,8,16,8,12,3,16, 
8 , i9 8,17,8,16,3,17,8,14,8,14-, 8 , 

7.3.14.8 

1620 DATA 14,8,17,8,14,8,17,.8,21 
.8.19.3.17.8,16,8,12,8,12,8,7,8, 

1 2 .8 , i 2 ,8, 16 ,3, 12 ,8,16,8 , la , 8,17 
.8.16,8,17,3 

i630 DATA 16,3,17,8,14,8, la, 3,17 
,8,16,3,12,8,12,8,12,4,19^16,17, 
ib,16,3,12,3,12,8,7,3,12,S,l2,8, 
16.8,12,8,16,3 

1640 DATA 19,8,17,8,16,8,17,8,14 
.8.14.8.7,8.14,3.14,3,17,8,14,8, 
17;3,21,8,19,3,17,8,16,8,12,8,12 

.8.7.8,l2,8 

i650 DATA 12,8,16,8,12,8,16,8,19 
.3.17,3.16.3,17,3,16,8,17,8,14,3 
.19.8,17,3,16,8,12,8,12,8,12,4 


* EKplanation of the program * 


The program is identical to 
Program 2, except for lines 130, 
380 and for the DATA list. The DATA 
list starts with line 1600. 
Therefore the RESTORE statement in 
line 130 refers to line 1610, where 
the DATA for the notes begin. The 
name used in line 380 is "IRISH." 




& 


aOY TO 
THE WORI_D 


Of the many glorious and 
jubilant Christmas songs, "Joy to 
the World" is one of the most 
popular. Its composer is George 
Friedrich Handel (16>S5~ 175^) . He 
Mas born in Germany but lived most 
of his life in England, where he 
became a naturalized Englishman, 
and where he created his grandest 
musical works. 

Xhe composition is transcribed 
in the key of C. 


* Program 5 * 


AD 


10 BORDER 4-: 
N$.R 

20 LET FF=0: 


PAPER 6. CL5 ; HE 
LET TT=10; LET Z$ 


U 


30 PRINT PAPER 5;“********* NO 
PLAYING **********" _ . - K, 

40 PRINT AT 10, (31-LtN N$J /ci, N 


50 PRINT PAPER 5 , AT 21,0j “***, 
****** NQU PLAYING ********** 
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60 PRINT PRPER 3; INK 7;RT 20, 
0:“TO STOP, PRESS ““SHIFT““ + ““ 

BREPK.. 

70 L.ET T«R*TT 

80 RERD F,U: ON ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 
100 PRUSE T/U*t60; GO TO 30 
110 BEEP T/U,F+FF: GO TO 80 
120 ON ERR RESET 

130 RESTORE 1310: IF Z$=“l“ THE 
N GO TO 30 

14-0 CLS : PRINT RT 7,0; “PRESS “ 
“1““ TO PLRY CONTINUOUSLY“ 

150 PRINT "“PRESS •*“2““ TO PLRY 
DIFFERENTLY** 

160 PRINT "*‘PRESS TO STOP 

170 PRUSE 0: LET 2$=INKE/$ 

180 IF Z$=“l“ THEN CLS : GO TO 
30 

190 IF Z$ = “2*‘ THEN GO TO 210 
200 STOP 

210 CLS : PRINT RT 4,0;“YOU CRN 
PLRY THIS COMPOSITION** 

220 PRINT ‘*RT R DIFFERENT TEMPO 
. THE** 

230 PRINT *‘ORIGINRL TEMPO IS 10 
. INPUT 10** 

240 PRINT **TO RETRIN THE ORIGIN 
RL TEMPO.“ 

250 PRINT ** INPUT R LRRGER NUMBE 
R FOR R** 

260 PRINT **5L0UER TEMPO. INPUT 
R SMRLLER** 

270 PRINT **NUMBER FOR R FRSTER 
TEMPO. ** 

280 INPUT TT 

290 CLS : PRINT RT 4,0;**YOU CRN 
CHRNGE THE TONRLITr^** 

300 PRINT **OF THE COMPOSITION. 
INPUT 0 TO** 

310 PRINT ‘*RETRIN THE ORIGINRL 
TONRLIT^.^. ** 

320 PRINT ** INPUT R POSITIVE NUM 
BER TO MRKE” 

330 PRINT **THE TONRLIT/ HIGHER. 
INPUT R** 




30 


34-0 PRINT “NtGRTIOE NUMBER TO M 
RKE IT” 

350 PRINT "LOUER. EACH UNIT CM 
*^360"'PRINT “TONhLIT/ BY ONE 5EMI 


TONE. 

370 INPUT Fi- 
330 5flUE 
1800 DRTR 
1310 DRTR 


CLS : GO TO 30 
JOY” LINE 10 
JOY TO THE UORLD” .h5 
4-, 4-,23,5.33,21.16,19, 



i320 DRTR 17,16,16,3,24 ,B,h4,B,c 
3,3,21,3,19 , B , 19,5.33 ^ i ^ ^ ' ? 

. 16,8,16,3,16,8 , ID , 8 , lb , IB , I r , 1& 

.19,16/5,99,16,17,lb,lb,lb,14,3 
i330 DPTfi 14,3,14,3,14 , lb .. lb lb , 
17.16/5,99,16,16,16,14,lb,12,3,^ 

4,4,21.3,19,5.33,17,lb,lb,3,17,3 

,16,4,14,4,12,2 


* Explanation o-f the program * 

The program is identical ^t |0 
Program 2, except for lines 130, 
380 and for the DATA list. The DATA 
list starts with line 1800. 
Therefore the RESTORE statement in 
line 130 refers to line 1810, where 
the DATA for the notes begin. The 
name used in line 380 is "JOY." 











M I L_ I I RE 


The Austrian composer Frans 
Peter Schubert (1797—1828) has 
created some of the most melodic 
and romantic music ever written. 
The composition presented here is 
his "March Militaire." It is tran¬ 
scribed in the key of G. 




* Program 6 * 


10 BORDER 4: PAPER 6: CL5 : RE 
RD N$,R 

20 LET FF=0: LET TT=10; LET Z$ 

30 PRINT PAPER 5:”********* NO 
U PLAYING **********“ 

40 PRINT AT 10,(31-LEN N$)/2jN 

$ 

50 PRINT PAPER 5 ;AT 21,0j“*** 
****** NOU PLAYING **********" 

60 PRINT PAPER 3; INK 7;AT 20, 
0,“TO STOP, PRESS ""SHIFT"" + “" 

BREAK. 

70 LET T=R*TT 

80 READ F,U: ON ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 



100 PAUSE T/Ui60: GO TO S0 
110 BEEP T/U,F+FF: GO TO 80 
120 ON ERR RESET 

130 RESTORE 2010; IF Z$="l“ THE 
N GO TO 30 

14-0 CLS : PRINT RT 7,0.; “PRESS " 
“I"" TO PLRY CONTINUOUSLY" 

150 PRINT '“PRESS "“2““ TO PLAY 
DIFFERENTLY" 

160 PRINT '“PRESS ••“S"" TO STOP 


170 PAUSE 0: LET Z$ = INKE"('$ 

180 IF Z$="l" THEN CLS ; GO TO 
30 

190 IF Z$=“2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4,0;"YOU ChN 
PLAY THIS COMPOSITION" 

220 PRINT "AT A DIFFERENT TEMPO 
T'HE ** 

'230 PRINT "ORIGINAL TEMPO IS 10 
INPUT 10" 

240 PRINT "TO RETAIN THE URIGIN 

'^250^PRINT "INPUT A LARGER NUMBE 

R FOR A" ^ .-r- 

260 PRINT "SLOUER TEMPO. INPUT 
A SMALLER" ^ ^ 

270 PRINT "NUMBER FOR A FhsTER 
TEMPO.“ 

230 INPUT TT . 

290 CLS ; PRINT AT 4,0, “YUU UHN 
CHANGE THE TONALITy" 

300 PRINT "OF THE COMPOSITIuN. 
INPUT 0 TO" 

310 PRINT "RETAIN THE ORIGINAL 

^320^piRiNT "INPUT A POSITIVE NUM 
BER TO MAKE" 

330 PRINT "THE TONALITt' MIgHEh. 
INPUT A" 

340 PRINT "NEGATIUE NUMBER TO M 

^350^RINT "LOUER. EACH UNIT CM 
ANGES THE" . 

360 PRINT "TONALI'P*' BY uNt sEMI 

TONE. " 














370 INPUT FF: CL5 : GO TO 30 
360 5hUE *‘MILITPIRE“ LINE 10 
2000 DhTP “HhPCH MILITPIRE" ,.06 
2010 DhTR 7,4., 2.8,2,8,1,4,2,4.,7, 
4,2,8,2,6,1,4,2,4,7,4,2,4,7,4,2 , 
4 . 7 , 4 , 2 , 4 ,- 1 , 4 , 2 , 4 , 7 , 4 , 2 , 4 
2020 DhTR 7,4,11,4,14,1,14,2,12, 

4.11.4.9.2.11.4.9.4.7.2.9.4.11.4 
.2.2.67,4,8,2,2,14,2,12,4,11,4,1 

6 .2.14.4 

2030 DRTR 11,4,12,4,14,8,12,8,11 
.4.12,8,11,8,9,4,4,8,6,8,7,8,6,8 
;. 7,8,8,3,9,4,9,8,9,8,7,4,9,4,11, 

204-0 DATA 12.4-, 14-, 2,9,4-, 11,4-, 12. 
2.11.4-.9.4..7.2.9.4..9.S.9.8.7.4-. 9 
. i . li . 4-. 12.4-. 14-. 2.6.4-. 7.4-. 9.2.67 
.11.8.7.2.19.2 


* Explanation o-f the program * 

The program is identical to 
Program 2, except for lines 130, 
380 and for the DATA list. The DATA 
list starts with line 2000. 
Therefore the RESTORE statement in 
line 130 refers to line 2010, where 
the DATA for the notes begin. The 
name used in line 380 

"MILITAIRE." 


1 s 



Il 


1. o 


UJOODEIIM 
SOI-D I ERS 


The music of the German com¬ 
poser Robert Alexander Schumann 
(1810-1856) is characterised by 
delicacy, youthfulness and poetical 
imagination. The composition pre¬ 
sented here is his playful march 
"Wooden Soldiers on Parade." It is 
transcribed in the key of G. 




* Program 7 * 


10 BORDER 4-; PAPER 6; CLb : HE 
RD N*,R 

20 LET FF=0: LET TT = 10: 1_ET Z$ 

30 PRINT PAPER 5“ ****i^*^^ NO 
U PLAYING iim***a" 

4-0 PRINT AT 10, (31-LEN N$)/2;N 

$ 

50 PRINT PAPER 5 ;AT 21,0;“*** 
mm NOU PLAYING *a-;t*i^***‘‘ 

60 PRINT PAPER 3, INK 7;AT 20, 
0:“TO STOP,* PRESS •■"SHIFT"" + 
BREAK"““ 

70 LET T=RiTT 

30 READ F,U: ON ERR GO TO 120 
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TMir 


90 IF F<>99 THEN GO TO 110 
100 PAUSE T/iJi60: GO TO 80 
110 BEEP T/U,F+FF: GO TO 80 
120 ON ERR RESET 
4 .aa micmTokm SaiM i xi» 

N GO TO 30 
14.0 Ci_S ; PRINT RT 7,0; "PRESS " 
"1"" TO PLAY CONTINUOUSLY" 

150 PRINT '“PRESS ""2“" TO PLAY 
DIFFERENTLY" 

160 PRINT '“PRESS “"S"" TO STOP 


170 PAUSE 0: LET 2$ = INKE'/$ 

180 IF Z$="l" THEN CLS : GO TO 
30 

190 IF Z$ = "2‘' THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4,0;“YOU CAN 
PLAY THIS COHPOSITION" 

220 PRINT "AT A DIFFERENT TEMPO 
. THE“ 

230 PRINT "ORIGINAL TEMPO IS 10 
. INPUT 10“ 

240 PRINT "TO RETAIN THE ORIGIN 
AL TEMPO." 

250 PRINT "INPUT A LARGER NUMBE 
R FOR A" 

260 PRINT "SLOWER TEMPO. INPUT 
A SMALLER" 

270 PRINT "NUMBER FOR A FASTER 
TEMPO." 

280 INPUT TT 

290 CLS PRINT AT 4,0;“YOU CAN 
CHANGE THE TONAL IT'^'" 

300 PRINT "OF THE COMPOSITION. 
INPUT 0 TO" 

310 PRINT "RETAIN THE ORIGINAL 
TONALIT,". " 

320 PRINT "INPUT A POSITIUE NUM 
BER TO MAKE" 

330 PRINT "THE TONALITY HIGHER. 

INPUT A" 

340 PRINT "NEGATIUE NUMBER TO M 
AKE IT" 

350 PRINT "LOWER. EACH UNIT CH 
ANGES THE" 

360 PRINT "TONALIT.^ BY ONE SEMI 
TONE." 
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370 INPUT FF; CLS : GO TO 30 
380 SPUE “SOLDIERS" LINt 10 
2200 DRTP “UOODEN SOLDIERS ON PR 
RRDE",.15 

2210 DRTR 11.5.33,12,16,14-, 4., 16, 

4- . 14-. 4.12,4-, 11,4-, 9,4-, 7,4,11,5.33 

. i2 , i6 14,4,16,4,14,4,19,4 , lo , 4 , 
i6.4,14.4,11,5.33,12,16 
2220 DfltR 14,4,16,4,14,4,12,4,11 
.4,9.4.7.4,11,5.33,12,lb,14,4,16, 
4,14,4,19,4, IS , 4 , lb , 4,14,4,2,5 . 

33.4.16.6.4.4.4 

2230 DATA 2,4,16,4,14,4,12,4,11, 
4.2,5.33,4,16,6,4,4,4,2,4,12,4,1 
1 ■, 4,9,4,11,4,11,5.33,12,16,14,4, 

16.4.14.4.12.4 __ _ 

2240 DATA 11,4,9,4,7,4,0,5.US,c, 

lb,4,4,2,4,0,4,2,4,b,4,7,2 


* Explanation of the program * 

The program is identical to 
Program 2, except for lines 13u, 
380 and for the DATA list. The DATA 
list starts with line 2200. 
Therefore the RESTORE statement in 
line 130 refers to line 2210, where 
the DATA for the notes begin. The 
name used in line oSO is 
"SOLDIERS." 


*** 













O SOL.E: MIO 


The warmth, color, melodious¬ 
ness, and passion of Italian music 
is well reflected in the so-called 
"Neapolitan" songs. Written in the 
19th century by various composers, 
Neapolitan songs are universally 
accepted as Italian national 

songs, just as if they were true 
folk songs. 

The composition presented here 
is the beautiful Neapolitan song 
"0 Sole Mio" ("My Sunshine") by 
Eduardo di Capua (1869-1917). It is 
transcribed in the key of G. 

*** 

* Program 8 » 

10 BORDER 4; PAPER 6. CL5 ; RE 
'^^20*LET FF=0: LET TT=10; LET Z$ 

30 PRINT PAPER S;“********* NO 
U PLAYING **********“ 

40 PRINT AT 10,(31-LEN N$)/2;N 
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se PRINT PAPER 5 ; RT 21.0; "i-t* 
a**** NOU PLAYING ***a^*-i**‘‘ 

60 PRINT PAPER 3; INK 7;AT 20. 
0 ;"TO STOP. PRESS ""SHIFT"" + "" 

BREAK. 

70 LET T=RiTT 

S0 READ F.U: ON ERR GO Tu 120 
90 IF F<>99 THEN GO TO 110 
100 PAUSE T/Ui60: GO TO 30 

110 BEEP T/U.F+FF: GO TO 30 

120 ON ERR RESET _ 

130 RESTORE 24-10: IF Z$= 1 THE 
NGOTO30 

14-0 CLS ; PRINT AT 7.0."PRE33 
"1"" TO PLAY CONTINUOUSLY" 

150 PRINT '"PRESS ""2"" TO PLAY 

DIFFERENTLY" _ _ 

160 PRINT '"PRESS " S Tu &TuP 

170 PAUSE 0: LET Z$ = INKE'^$ 

130 IF Z$="l" THEN CLS UO Tu 
30 

190 IF Z$ = **2‘* THEN GO TO 210 

210 CLS^: PRINT AT 4 .0; "YOU CAN 
PLAY THIS COHPOSITION" ^ 

220 PRINT "AT A DIFFERENT TtHPO 
ITHE ** 

*230 PRINT "ORIGINAL TEHPO IS 10 

’ 240^PRINt'^ “TO RETAIN THE ORIGIN 

'^250^PRINT "INPUT A LARGER NUMBE 

^260^PRINT "SLOUER TEMPO. INPUT 

270^PRINT "NUMBER FOR A FASTER 
TEMPO." 

111 CLS^^ ^INT RT 4.0; "YOU CAN 
§Sg^^ilSf^‘;OP^?Hr^OMPOSITION. 

310*^PRINT*^"retain THE ORIGINAL 

TONHL. I r V * . -k - TT-Xi IP” tvji IM 

320 PRINT "INPUT H POalTIUE NUM 

BER TO MAKE” 
















330 PRINT "THE TONRLI'T/ HIGHER. 
INPUT fl" 

34-0 PRINT "NEGRTIUE NUMBER TO M 

*^3S0^RINT "LOUER. EACH UNIT CH 
THE*’ 

360 PRINT "TONPl-ITY BY ONE SEMI 
TONE." _ 

370 INPUT FF: C1_S ; Gu TO 30 
380 SflUE "SOLE MIO" LINE 10 
24.00 DRTR "O SOLE MIO",.25 _ 

24-10 DATA 99,3,26,8 >24-. 8,23,8, iil 
. 4.19,4-, 19,3,21,8,23,8,19,8,18,4 
■.16,4,99.8,18,8,19,8,21,0,18,9,1 
6.8,16,8/3,18,8 ^ ^ ^ ^ 

2420 DATA 19,3,21,8 , lb , 8,14-, 3,14 
, 4.9y , 3,2b , 3,24,8,23,8,21,4^ 19 , 
.19,8,21,3,23,3,19,3,18,4,18,4,9 

9.8.24.8.23.8 

2430 DATA 21,8,26,8,23,8,21,3,19 
.3.21,3/3,23,3,21,24,23,24,21,24 
. 19,3/3,99,3,19,8,19,8,18,lb,l3, 

16.14.4.14.4.99.8.18.8.18.8 
2440 DAtA 16,16,16,16,12,3/5,18, 
8,13.3.16,16,16,16,12,4,12,4,12, 
8.9,8,11.8,12,8,14,4/3,99,8,14,3 
.15,8/5,12,3,19,3,15,8,14,4,14,4 
,14.8.11,3,9,8,7,8,14,8/5,11,18, 
9,32,il,32,9,16/3,6,16,7,8/5,9a, 

8/3 

* Explanation of the program * 


The program is identical to 
Program 2, except for lines 130, 
380 and for the DATA list. The DATA 
list starts with line 2400. 
Therefore the RESTORE statement in 
line 130 refers to line 2410, where 
the DATA for the notes begin. The 
name used in line 330 is "SOLE 



TOFiCEftDOR SOINJG 


There hardly exists any opera 
that is better known than the opera 
"Carmen" by the French composer 
Georges Bizet (1838—1875). Th 
opera is a tragic story o-f love an 
jealousy. The scene is Spain. The 
main characters are Carmen, a 
passionate gypsy girl; Don Jose, a 
soldier in the Spanish army; 
and Escamillo, a swaggering bull- 
fighter. 

The composition presented here 
is one of the most popular arias 
from the opera, commonly known as 
the "Toreador Song." It is 
transcribed in the key of F. 


♦ Program 9 * 


10 BORDER 4: PAPER 6. CL5 : RE 

flD -r* 

20 LET FF=0: LET TT=10: LET Z$ 

30 PRINT PAPER 5 j " ***** NO' 

U PLAYING 


01 T3 
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4-0 PRINT RT 10, (31-LEN N$) /2; N 


BREAK. 

70 LET T=RitTT 

30 READ F.U; ON ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 
100 PAUSE T/U+60: GO TO 80 
110 BEEP T/U,F+FF: GO TO 80 
120 ON ERR RESET 

130 RESTORE 2610; IF Z$="l" THE 
N GO Tu 80 

14-0 CLS ; PRINT RT 7,0;"PREs>3 “ 
••1“‘* TO PLRY CONTINUOUSLY" 

150 PRINT '“PRESS ••••2"" TO PLAY 
DIFFERENTLY" 

160 PRINT '“PRESS "••S““ TO STOP 

170 PAUSE 0: LET Z$=INKE'('$ 

180 IF Z$="l" THEN CLS ; GO TO 
30 

190 IF Z$=“2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4,0;"YOU CAN 
PLAY THIS COHPOSITION" 

220 PRINT "AT A DIFFERENT TEHPO 
. THE" 

230 PRINT “ORIGINAL TEMPO IS 10 
INPUT 10" 

240 PRINT “TO RETAIN THE ORIGIN 
AL TEHPO." 

250 PRINT “INPUT A LARGER NUMBE 
R FOR A" 

260 PRINT "SLOWER TEMPO. INPUT 
A SMALLER" 

270 PRINT "NUMBER FOR A FASTER 
TEMPO." 

280 INPUT TT 

290 CLS : PRINT AT 4,0;“YOU CAN 
CHANGE THE TONALIT/" 

300 PRINT "OF THE COMPOSITION. 
INPUT 0 TO" 

310 PRINT "RETAIN THE ORIGINAL 
TONALIT/ ." 


50 PRINT PAPER 5 ;AT 21,0;"*** 
NOW PLAYIN® ■**«*♦*****" 

60 PRINT PAPER 3; INK 7;AT 30, 
0;"TO STOP, PRESS “"SHIFT"" + "" 




•r4EGflTIUE NUMBER TO M 
■LOUER. EflCH UNIT CH 


320 PRINT “INPUT fl POSITIUE NUM 
BER TO MAKE" 

330 PRINT "THt TONfiLITT MIUriER. 

INPUT fl“ 

34-0 PRINT 
RKE IT" 

350 PRINT 

^sii^PRINT "TONRLITf' BY ONE 5EMI 

-TONE." ^ -- -r.n -A 

370 INPUT FF: CLS : UU TO o0 
380 SRUE "TOREADOR" LINt 10 
2600 DATA “TOREADOR 50NG"^.l.- 
2610 DATA 12 ..4.14-,8,12.8,is,4,|..4 
.9.3.7.3.9,8,10,8,9,2,10,4,7^6,1 
2.8.9.2,5,4,2,3,7,8,0,2,7,4 , / , b 

2620 DATA 7,3,7,3,14,a,IH,^.10>o 

8,9,4,8,8, 11 ,3, 16 ,1, aa , a . 4,14 , jci 
is 32 - 

2630 DATA 14 -, 32 ,13,8,14,8^7^-a , a , 
8.10.4,99,6.4,9,32,^ 

8 ', 14,8,12 ^2,99 , &. 4,5 , oc!, .' , 32,5 , 

i640^DATA°7?4t5,4,12,12,12,12,12 

:i^4^i:l:7^8t4"i:t0tt:l:i 

2650'^DATA 9,2,5,4 ^2,3,7,3,0^H , 7 , 
4.7.8.7.8.7,3,14,6,12,6,10,6^9,0 

. 7 '. 3,9.3 , i0,3,9,2,4,4 i^9,3,9,6 

2660 DATA 2,4,3,8,11,6 , l6,1, 
.4,14,32,16,32,14,32,16,6,14,3^7 
.3.9.3.10,4 , a9,6.4,9,6=., 10,3=., - , 
32;. 5,3,14,6,12,2 __ _ 

2670 DATA , 99,6.4,5,6.= , .• , .* ■ > 

0.3,10,3,9,4,7,4,5,1 


* Explanation of the program * 

l( 

The program is identical ^to 
Program 2, except for lines l-*Uj 
380 and for the DATA list. The DATA 
list starts with line 2600. 
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Therefore the RESTORE statement in 
line 130 refers to line 2610, where 
the DATA for the notes begin. The 
name used in line 380 is 
"TOREADOR." 






VIEMMA MARCH 


Vienna, the capital city of 
Austria, is famous for its handsome 
buildings, ' magnificent palaces, 
beautiful parks, exquisite works of 
art, and the "blue" Danube river, 
all of which have inspired many 
composers to write delightful, 
spirited and elegant musical 
compositions. 

The "Vienna March" by J. 
Schrammel presented here reflects 
quite well the Viennese type of 
music. It is transcribed in the key 
of C. 


* Program 10 * 

10 BORDER 4-; PAPER 6: CL5 : RE 
AD N$,R 

£0 LET FF=0: LET TT=10: LET Z$ 

30 PRINT PAPER S" t*******-^^ NO 
U PLAYING i-i^*****-***" 

4.0 PRINT AT 10, (31-LEN N$) /£; N 
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50 PRINT PAPER 5 ;RT 21,0;”*** 
****** NOU PLAYING **********" 

60 PRINT PAPER 3.1 INK 7; AT 20, 
0;"TO STOP, PRESS ""SHIFT"" + "" 

BREAK. 

70 LET T=R*TT 

80 READ F,<J: ON ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 
100 PAUSE T/U*60: GO TO 30 
110 BEEP T/U,F+FF; GO TO 80 
120 ON ERR RESET 

130 RESTORE 2810; IF 2$="1" THE 
N GO TO 80 

14-0 CLS : PRINT AT 7,0; "PRESS " 
"1"" TO PLAY CONTINUOUSLY" 

150 PRINT '"PRESS ""2"" TO PLAY 
DIFFERENTLY" 

160 PRINT '"PRESS ""3"" TO STOP 

170 PAUSE 0; LET Z$=INKEY$ 

130 IF Z$="l" THEN CLS : GO TO 
30 

190 IF Z$="2” THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4,0;"YOU CAN 
PLAY THIS COHPOSITION" 

220 PRINT "AT A DIFFERENT TEMPO 
. THE" 

230 PRINT "ORIGINAL TEMPO IS 10 
INPUT 10" 

240 PRINT "TO RETAIN THE ORIGIN 
AL TEMPO." 

250 PRINT "INPUT A LARGER NUMBE 
R FOR R** 

260 PRINT “5L0UER TEMPO. INPUT 
P SMRLLER*’ 

270 PRINT “NUMBER FOR R FR5TER 
TEMPO.“ 

280 INPUT TT 

290 CL5 : PRINT RT 4.0;"YOU CRN 
CHRNGE THE TONRLITf'" 

300 PRINT "OF THE COMPOSITION. 
INPUT 0 TO" 

310 PRINT "RETRIN THE ORIGINRL 
TONRLI'rr'. " 

320 PRINT "INPUT R P05ITIUE NUM 
BER TO MRKE" 



330 PRINT "THE TONfiLIT/ HIGHEH. 
INPUT fl" 

34-0 PRINT "NEGRTIUE NUMBER TO M 

350 PRINT "LOWER. EACH UNIT UH 
RNGES THE" __ ^ 

360 PRINT "TONRLIT'f' BY ONE StMI 
TONE." 

370 INPUT FF: CL5 : GO TO 30 
380 SflUE "UIENNfl" LINE 10 
2300 DATA "UIENNA MARCH",.07 
2310 DATA 7,8,7,3,7,4,7,4-, 99,4-, 3 
.3 »S *3,9i4i9,4,99,4,7,8,7,3,7,4, 
12:.4;ii,4,9,4,ll,1.33,7^3,7,S_ 
2320 DATA 7,4,7,4,99,4,3,8,3,3,9 
,4,9,4,99,4,7,3,7,8,7,4,17,4,13, 
4,15,4,l3,1.33,7,8,7,3,7,4,7,4,9 
9.4 

2330 DATA 8,3,3,8,9,4,9,4,99,4,7 

.3.7.3,7,4,12,4,11,4,9,4,11,1.33 
',14,8,14,3,14,4,12,2,12,3,12,3,1 
2 ^ 1 ^ 2 

2340 DATA 11,3,11,3,9,4,12,4,11, 
^4-/7 j 3 / "7 ^4*.i7 .*4-^ ito .» ^ ^ 

3,11,4,12,4,12,4,7,4,4,4,5,2.37, 

2350 DATA 7,4,7,1,17,1.33,11,4,1 

2,4,11,4,9,4,5,4,4,2.67,7,3,7,4, 

7,4,7,1,16,1.33,11,4,10,4,10,4,1 
0.4,10.4.9,2.67 

2360 DATA 14,3,14,4,14,4,15,1,1s 
,4.0,8,-1,3,-3,4,-5,4,-7,4,-3,4, 
-10,4,-12,4,9,4,99,4,11,4,99,4,1 

2.1.33 


* Explanation of the program * 
The program is identical to 
Program 2, except for lines 13U, 
380 and for the DATA list. The DATA 
list starts with line 2800. 
Therefore the RESTORE statement in 
line 130 refers to line 2810, where 
the DATA for the notes begin. The 
name used in line 380 is “VIENNA. 

















1 -a- 


"roF5:iNi#=% 

#=% SLJF6F5C I EINJTO 


In Chapter 11 the Neapolitan 
song "O Sole Mio" was presented. 
Another Neapolitan song is 
presented here. It is "Torna a 
Surriento" ("Return to Sorento") by 
Ernesto di Curtis (1875~1937). 

Neapolitan songs were -frequently 
per-formed in concerts by great 
opera singers like Caruso and Gigli 
and, more recently, by Luciano 
Pavarotti and others. 

The song is transcribed here in 
the key o-f D. 


*** 


* Program 11 * 


10 BORDER 4: PAPER 6; CL3 ; RE 
RD N$,R 

20 LET FF=0; LET TT=10: LET 2$ 

30 PRINT PAPER Si"********* NO 
U PLAYING 


47 



4-0 PRINT AT 10, (31-LEN N$J /ii; N 


50 PRINT PAPER 5 ; AT 21,0; 

*-i * -t-i NOW PLHYING 

60 PRINT PAPER 3; INK. 7;hT 20, 
0 ,“TO STOP, PRESS ““SHIFT"" + 

BREAK. 

70 LET T=RiTT 

80 READ F,U: ON ERR GO TU 120 
90 IF F<>99 THEN GO TO 110 
100 PAUSE T.''Ui60: GO TO 80 

110 BEEP T./y,F+FF; GO TO 80 

120 ON ERR RESET ^ 

130 RESTORE 3010: IF Z$= 1 THE 
N GO TO 80 , .. 

14-0 CLS : PRINT AT 7,0; PkE88 
“1““ TO PLAY CONTINUOUSLY" 

150 PRINT '“PRESS ““2"" TO FLAY 

DIFFERENTLY" _ _ 

160 PRINT '“PRESS 8 TU sTuP 

170 PAUSE 0; LET Z$=INKE“r$ 

180 IF Z$=“l“ THEN CLS : UO Tu 
30 

190 IP Z$=*‘2** THEN GO TO 210 

210 CLS*^: PRINT AT 4,0; “YOU CAN 
PLAY THIS COMPOSITION" _ 

220 PRINT "AT A DIFFERENT TtMFO 

’230^PRINT “ORIGINAL TEMPO IS 10 

*240^PRINT^"TO RETAIN THE ORIGIN 

^250^PRINT “INPUT A LARGER NUMBE 
D FHC* A*' 

260 PRINT “SLOWER TEMPO. INPUT 

27l^PRINT “NUMBER FOR A FASTER 
TEMPO." 

111 CLS^^ PRINT AT 4,0 ,"YOU CAN 

300^PRINT^"OF^THi^COMPOSITION. 

INPUT 0 Tu*‘ 

310 PRINT “RETAIN THE ORIGINAL 
TONAL rr/. “ 
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320 PRINT "INPUT fl POSITIUE NUM 
BER TO MRKE" 

330 PRINT "THE TONALITY HIGHER. 

"NEeATlUe NUMBER TO M 

RKE IT" 

350 PRINT "LOWER. EACH UNIT CH 
ANGES THE" 

360 PRINT "TONALITY BY ONE SEMI 
TONE." 

370 INPUT FF: CLS : GO TO 30 
380 3AUE "SORENTO" LINE 10 
3000 DATA "TORNA A SORENTO"15 
3010 DATA 26.3.28,8.25,2.67,23,8 
. 26,4-, 26,2,99,8,25,8,26,8,28,8,2 
5,8.23.8.21,4.,21,2,19,4.,22,4,26, 
4- . 29,2.67,23,3,26,4- 
3020 DATA 99,3,28,8,25,2.67,25,8 
. 26,1.33.14-, 8,16,8,17,8,19,3,21, 

8.17.8.21.4- , 21,2,19,8,21,8,22,8 , 

19.8.22.8.19.3.26.4- 

3030 DATA 26,2,26,8,28,8,29,3,h 3 
,8,26,8,23,8,21,4,21,2,19,8,21,8 
,19,8,17,3,15,8,17,8,14,1.33,26, 
8.25,8.21,U,c3,8 

3040 DATA 25,3,21,8,23,4,23,2,25 
,8,23,8,21,8,23,8,25,8,21,8,23,4 
,23,2,18,3,19,8,21,8,13,8,16,8,1 
4,8,19,4,19,2 

3050 DATA 21,8,23.8,25,8,23,8,21 
.3.25,3,13,1.33,26.3.25,8,21,8,2 
3,8,25,8,21,8,23,4,23,2,23,8,26, 
is , 25,3,2s , U , c3,8 

3060 DATA 25,3,26,4,26,2,26,8,28 
,8,29,8,23,3,26,3.28,8,21,4,21,2 
,18,8,21,8,19,8,17,3,16,8,17,3,1 

4.1.33.26.8.28.8 

3070 DATA 25,2.67,23,8,26,4,26,2 
,99,8,25,3,26 , .3,28,8.25,8,23,3,2 
1,4,21,2,19,4,22.4.26,4,29,2.67, 

28.3.26.4.99.3.28.8.25.2.67.25.8 
,26,1.33 


* EKplanation of the program * 
The program is identical t 


Program 2, except for lines 130, 
380 and for the DATA list. The DATA 
list starts with line -iOOO. 
Therefore the RESTORE statement in 
line 130 refers to line 3010, where 
the DATA for the notes begin. The 
name used in line 380 is "SORENTO." 

















J. s 


IIMDIOO M#=%FCCM 


Of the many composers who 
called Vienna their home, none are 
known better than Johan Strauss the 
“Elder" (1804-1849) and his son 
Johan Strauss the "Younger" 
(1825-1899). Although they are 
famous mostly for their splended 
waltzes, they created many other 
beautiful compositions as well. 

The "Indigo March" presented 
here is by Johan Strauss the 
Younger. It is transcribed in the 
key of F. 


* Program 12 * 


10 B0RC>ER 4-: PAPER 6; CL5 : RE 
w D N 4 P 

20 LCT FF=0: LET TT=10. LET Z$ 

30 PRIr4T PAPER 5; “ it**ii****i NO 
U PLAYING ma*****" ^ 

4.0 PRINT AT 10, (31-LEN N$J/2;N 



50 PRINT PhPER 5 ; hT 21,0.;“^^^ 
NOU PLRYING #-JS^ *-at i ^ i-it-‘' 

60 PRINT PhPER 3.; INK 7; RT 20, 
0.; “TO STOP, PRESS ““5HIFT““ + ““ 
BRERK“““ 

70 LET T=R^TT 

80 RERD F,U: ON ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 
100 PRU5E T/U^60: GO TO 30 
110 BEEP T/U,F+FF: GO TO 80 
120 ON ERR RESET 

130 RESTORE 3210: IF Z$=“l“ THE 
N GO TO 30 

14.0 CLS : PRINT RT 7,0; “PRESS “ 
“1““ TO PLRY CONTINUOUSLY*’ 

150 PRINT "“PRESS ••“2““ TO PLRY 
DIFFERENTLY” 

160 PRINT "“PRESS ““S”” TO STOP 

170 PRUSE 0: LET 2$ = INKE^Y$ 

130 IF Z$ = “l“ THEN CLS : GO TO 
30 

190 IF Z$=“2“ THEN GO TO 210 
200 STOP 

210 CLS : PRINT RT 4.,0;“YOU CRN 
PLRY THIS COMPOSITION” 

220 PRINT “RT R DIFFERENT TEMPO 
THE” 

230 PRINT “ORIGINRL TEMPO IS 10 
INPUT 10“ 

24.0 PRINT “TO RETRIN THE ORIGIN 
RL TEMPO.” 

250 PRINT “INPUT R LRRGER NUMBE 
R FOR R** 

260 PRINT “5L0UER TEMPO. INPUT 
R SMRLLER” 

270 PRINT “NUMBER FOR R FRSTER 
TEMPO. “ 

230 INPUT TT 

290 CLS : PRINT RT 4,0,“YOU CRN 
CHRNGE THE TONRLITY” 

300 PRINT “OF THE COMPOSITION. 
INPUT 0 TO” 

310 PRINT “RETRIN THE ORIGINRL 
TONRLrr^.” 

320 PRINT “INPUT R POSITIVE NUM 
BER TO MRKE” 


















330 PRINT "THE TONRLIT'f' HIGHER. 
INPUT R" 

34-0 PRINT "NEGRTIUE NUMBER TO M 
AKE I*T*‘ 

350 PRINT "LOWER. EACH UNIT CH 
RNGES THE" _ , 

360 PRINT "TONALITY BY ONE SEMI 

^370"input FF: CLS : GO TO 30 
380 3RUE "INDIGO" LINE 10 
3200 DATA "INDIGO MARCH",.15 
3210 DATA 3,16,9,8.9.. 8,9.. 5.55.8, 
16,9,8,9,8,9,5.33,9,16,12,5.33,5 
,15,9,5.33,0,l8,7,3,7,3,9,5.33,8 
.16,9,3,y,8,y,5.3»o _ _ 

3220 DATA 8,16,9,S,9,8,9,5.33,y, 

16.17.5.33.16.16.14.5.33.12.16.1 
2.16.11, l6 ,9,16,11,16,12,5.33,8, 
16.9^3.9.3.9.5.33,8,16,9,3 

3230 DATA 9,3,9,5.33,9,16,12,5.3 
3,5,15.9,5.33,0,16,7,8,7,3,9,5.3 
3,8.16.9,3,9,3,9,5.33,8,16,9,8,9 
.8.9,5.33,9,16,17,5.33 
3240 DATA 16,16,14,5.33,12,16,12 
.16.11.16,9,16,11,16,12,3,9,8,10 
.3.16,8,16,8,16,3,17,8,19,16,17, 

16.16.8.14.3.16.8.17.16 

3250 DATA 16,16,14,8,12,8,14,3,1 

6.16.14.16.12.8.9.8.10.3.16.8.16 
.3.16,3,17,8,19,16,17,16,16,8,14 
;. 3 ;. 12,8,21,4,19,3 

3260 DATA 17,3,17,8,17,8,9,8,10, 

8.16.8.16.8.16.3.17.8.19.16.17.1 
6,16,3,14,3,16,8,17,16,16,16,14, 

3.12.3.14.8.16.16 

3270 DATA 14,16,12,8,9,8,10,3,16 
.3,16,8,16,8,17,8,19,16,17,16,16 
,8,14,8,12,8,21,4,19,3,17,8,17,8 
,17,4 


* Explanation of the program * 


The program is identical t 
Program 2, except for lines lc>0 
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380 and -for the DATA list. The DATA 
list starts with line 3200. 
Therefore the RESTORE statement in 
line 130 refers to line 3210, where 
the DATA for the notes begin. The 
name used in line 380 is "INDIGO." 



-i'ihe: bi-lje: 


Johan Strauss the Younger 
(1825-1899) is known as “The Waltz 
King". He composed hundreds of 
graceful and beautiful waltzes. He 
had started to make up waltzes when 
he was six years old. In 1867 he 
wrote his most famous series of 
waltzes, which he named "By the 
Beautiful Blue Danube." The first 
of these waltzes is presented here. 
It is transcribed in the key of D. 

* Program 13 * 


10 BORDER 4: PAPER 6; CLS : RE 
^^20*ilET FF=0: LET TT = 10: LET Z$ 


30 PRINT PAPER 5 ; *'*****NO 
U PLAYING **********" 

4-0 PRINT AT 10, (31-LEN N$J/2,N 


* 50 PRINT PAPER 5 ;AT 21,0;"*** 
NOU PLRyING 



I 


60 PRINT PRPER 3; INK 7.; RT 20, 
0,‘'TO STOP, PRESS •• "SHIFT" *■ + "" 
BRERK""" 

70 LET T=RiTT 

80 RERO F,U; ON ERR GO TO 120 
90 IF F<>99 THEN GO TO 110 
100 PRUSE T/Ui60: GO TO 30 
110 BEEP T/U,F+FF: GO TO 30 
120 ON ERR RESET 

130 RESTORE 34-10: IF Z$ = "l" THE 
N GO TO 80 

14-0 CLS : PRINT RT 7,0j "PRESS " 
"1"" TO PLRY continuously" 

150 PRINT '“PRESS ""2"" TO PLRY 
DIFFERENTLY" 

160 PRINT '"PRESS "“S“" TO STOP 

170 PRUSE 0: LET Z$=INKE^i'$ 

130 IF Z$="l” THEN CLS : GO TO 
30 

190 IF Z*="2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT RT 4,0;“YOU ChN 
PLRY THIS COMPOSITION" 

220 PRINT “RT R DIFFERENT TEMPO 
. THE" 

230 PRINT "ORIGINRL TEMPO IS 10 
INPUT 10“ 

240 PRINT "TO RETRIN THE ORIGIN 
RL TEMPO." 

250 PRINT "INPUT R LRRGER NUMBE 
R FOR H*' 

260 PRINT "SLOWER TEMPO. INPUT 
R SMRLLER" 

270 PRINT “NUMBER FOR R FRsTER 
TEMPO.“ 

280 INPUT TT 

290 CLS : PRINT RT 4,0; "YOU ChN 
CHANGE THE TONRLIT/" 

300 PRINT "OF THE COMPOSITION. 
INPUT 0 TO” 

310 PRINT "RETRIN THE ORIGINHL 

^320*~PRINT "INPUT R POSITIUE NUM 
BER TO MAKE" 

330 PRINT "THE TONRLIT/ HIGHER. 
INPUT R" 

















34-0 PRINT "NEGRTItJE NUMBER TO M 
RKE IT“ 

350 PRINT ■•L.OUER. EACH UNIT CH 
ANDES THE*’ 

360 PRINT "TONALITY BY ONE SEMI 
TONE. *• 

370 INPUT FF: CLS : GO TO 30 
380 SAUE “DANUBE" LINE 10 
34.00 DATA “THE BLUE DANUBE",. 08 
34-10 DATA 2,4-, 6,4-. 9,4,9,4-, 99,4,2 

I. 16/3.99,16,21,16/3,99,16/5,18, 
16/3,99,16,18,16/3,99,16/5,2,4,2 
. 4.6,4,9,4 

3420 DATA 9,4,99.4,21,16/3,99,16 
.21.16/3,99,16/5,19,16/3,99,16,1 
9.16/3,99,16/5,1,4,1,4,4,4,11,4, 

II, 4,99,4,23,16/3,99,16,23,16/3, 
99.16/5,19,16/3,99,16 

3430 DATA 19,16/3,99,16/5,1,4,1, 
4,4,4,11,4,11,4,99,4,23,16/3,99, 
16.23,16/3,99,16/5,18,16/3,99,16 
,18,16/3,99,16/5,2,4 
3440 DATA 2,4,6,4,9,4,14,4,99,4, 
26,16/3,99,16,26,16/3,99,16/5,21 
. 16/3,99,16,21,16/3,99,16/5,2,4, 
2,4,6,4,9,4,14,4,99,4,26,16/3,99 
, 16 

3450 DATA 26,16/3.99,16/5,23,16/ 

3,99,16,23,16/3,99,16/5,4,4,4,4, 

7,4,11,8,99,8,11,16/15,99,16,8,1 

6/3,99,16,9,16/3,99,16,18,16/15 

3460 DATA 99,16,14.16/3,99,16,6, 

16/3,99,16,6,2,4,16/3,99,16,11,2 

,9,16/3,99,16,2,4,99,8,2,8,2,4 

3470 DATA 99,4,26,8,99,8,25,3,99 

,8,25,8,99,3,23,8,99,8,23,8,99,8 

/3,23,8,99,8,22,8,99,8,22,8,99,8 

,23,8,99,8,23,8,99,8/3,16,8,99,8 

3480 DATA 16,8,99,8,18,2,16,4,99 

,4,16,8,99,8,16,8,99,8,23,2,21,4 

,99,4,26,8,99,8,25.8.99,8,25,3,9 

9,8,23,3,99,8,23,8,99,8/3 

3490 DATA 23,3,99,8,25,8,99,8,28 

,8,99,8,26,3,99,8,26,8,99,8/3,20 

,8,99,8,23,3,99,8,23,2,21,16/3,9 

9,16,20,16/5,99,16,18,8,14,3,11, 

8,13,8,18,8,13,16/3,99,16,16,16/ 



3.99.16.9.4- 

3500 DATA 99,4-, 9,16/3,99,16,7,4-, 

99.4- ,9,16/3,99,16,7,4-, 99,4-, 9,16 / 
3,99,16,18,16/15,99,16,16,4-, 9,16 
/3,99,16 , b , 4-, 99,4-, 9,16/3,99,16,6 
. 4-, 99,4-, 9,16 /3,99,16 

3510 DATA 16,16/15,99,lt>,14-,4,9, 
16 /3,99,16,7,4-, 99,4-, 9,16 /3,99,16 
. 7.4-, 99,4-, 9,16/3,99,16 , IS , 16/15 
3520 DATA 99,16,16,16/3,99,16,9, 
16/3.99,16,14-, 16/3,99,16,16,16/3 
.99.i6,IS,16/3,99,16,21,2,19,16/ 
3,99.16,IS,S,IS,3,13,16/3,99,16, 
16.16/3,99,16,14-, 4- 


* Explanation of the program * 


The program is identical to 
Program 2, except for lines 130, 
380 and the DATA list. The DATA 
list starts with line 3400. 
Therefore the RESTORE statement in 
line 130 refers to line 3410, where 
the DATA for the notes begin. The 
name used in line 380 is "DANUBE." 


















a. -7 


S I L-EIMT 


tsi I OUT 


The last composition in this 
part of the book is the peaceful 
and gentle Christmas carol “Silent 
Night" by the Austrian composer 
Franz Xaver Brueber (1787-1863). It 
is believed to be the best loved 
Christmas carol of all. 

This carol is transcribed in the 
key of C. 


* Program 14 * 


10 BORDER 4-; PAPER 6; CL5 ; RE 
AD N$, R 

20 LET FF=0: LET TT=10: LET 2$ 

30 PRINT PAPER 5.: “ NO 

U PLAYING 

4-0 PRINT AT 10, (31-LEN N$)/2;N 

$ 

50 PRINT PAPER 5 ;AT 21,0;”*** 
****** NOU PLAYING **********” 

60 PRINT PAPER 3; INK 7;AT 20, 
0;“TO STOP, PRESS ••■•SHIFT"" + " •' 

BREAK .. 

70 LET T=R*TT 

80 READ F,U; ON ERR GO TO 120 
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I 


60 


90 IF F<>99 THEN GO TO 110 
100 PAUSE T/Oi60: GO TO 80 
110 BEEP T/0,F+FF; 60 TO 80 

120 ON ERR RESET 

130 RESTORE 3610: IF Z$="l" THE 
N GO TO 80 .. 

14-0 CLS : PRINT RT 7,0; "PRESS 
"1“" TO PLhY CONTINUOUSLY" 

150 PRINT '"PRESS ••“2"" TO PLflY 
DIFFERENTLY" .. 

160 PRINT '"PRESS "“S"" TO sTuP 

170 PAUSE 0: LET Z$ = INKE^.^$ 

180 IF Z$="l" THEN CLS : GO Tu 
30 

190 IF Z$="2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4.,0;"YOU LHN 
PLAY THIS COMPOSITION" _ 

220 PRINT "AT A DIFFERENT TEMPO 
1”hiE ** 

*230 PRINT "ORIGINAL TEMPO IS 10 
INPUT 10" 

*24-0 PRINT "TO RETAIN THE ORIGIN 

*^250^PRINT "INPUT A LARGER NUMBE 
R FOP R** 

260 PRINT "SLOWER TEMPO. INPUT 
A SMALLER" _ 

270 PRINT "NUMBER FOR H FASTER 

TEMPO." 

280 INPUT TT 

290 CLS : PRINT AT 4.,0;"YOU LAN 
CHANGE THE TONAL TT/" 

300 PRINT "OF THE COMPOSITION. 
INPUT 0 TO" 

310 PRINT "RETAIN THE ORIGINAL 

TONOL- -L 1 Y * rn. - -r-r Ti 1C- Mi iM 

320 PRINT "INPUT A POsITIUE NUM 

BER TO MAKE" 

330 PRINT "THE TONALir/ HIlHEH. 

340*^PRINT "NE6ATIUE NUMBER TO M 

*^350^RINT “LOWER. EACH UNIT CH 
ANGES THE" 















360>PRINT "TONPLITY BY ONE 5EMI 
-TONE. " 

370 INPUT FF: CLS ; UO TO 30 
330 SPUE “SILENT” LINE 10 
3600 DPTP "SILENT NIGHT" ... 18 
3610 DPTP 7,3/3,9,8,7,4-, 4,4/3,. 7. 
8/3,9,3,7,4,4,4/3,14 2,14,4,114 
/3.12,2,12 4 7 .. 4/3 .. 9 2 9 .. 4,12,8 / 
3 . il,S.. 9.4.7,. 3/3 

3620 DPTP 9,8,7,4,4,4/3,9,2,9.. 4, 
12.8/3.11.3,9,4,7,8/3,9,8,7,4,4, 
4/3,14.2,14,4,17,4,14,4,11,4,12, 
4/3,16,1,12,4 

3b30 DATA 7,4,4,4,7,4,5,4,ii,4,0, 
1 


* Explanation of the program * 


The program is identical to 
Program 2, except for lines 13u, 
380 and for the DATA list. The DATA 
list starts with line 3600. 
Therefore the RESTORE statement in 
line 130 refers to line 3610, where 
the DATA for the notes begin. The 
name used in line 380 is "SILENT." 


1 & 


MUSXC BOX 1 


The program presented here is 
“Music Box 1." This program allows 
you to assemble all 14 compositions 
o-f this part of the book and to 
play them at will. 


* Program 15 ♦ 


10 BORDER 4-: PAPER 6: CL3 ; FO 
R fl=0 TO 12 

20 PRINT TAB 3; INK 1; "MUSIL, B 
OX 1“;TAB 13; INK 3;“MUSIC BOX 1 
“ ; NEXT A 

30 PRINT AT 15,0; PAPER 5;''“T 
HIS IS YOUR MUSIC BOX 1. PREsS 
"“ENTER”“ TO SEE THE CONTENTS. 

4-0 PAUSE 0 

50 CLS : PRINT PAPER 5:“♦***** 
*** BOX CONTENTS *********": PRI 
NT ' ' , -, 

60 FOR 1=1 TO 14: RESTORE l*i;0 
0+800: READ N*: PRINT I;TAB 4;N$ 

70 PRINT PAPER 5;AT 20,0:“ENTE 
R THE NUMBER OF THE COMPOSI-TION 
THAT YOU WANT TO PLAY 
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80 INPUT N; CL5 : LET TT=10: L 
ET FF=0: LET Z$="" 

90 RESTORE Ni200+800: READ N$, 
R; LET T=R*TT 

100 CLS : PRINT PAPER 5; " *♦•»♦** 
*** NOW PLAYING AT 2 

1,0; •■*♦♦***♦** NOW PLAYING ***** 

*110*PRINT AT 10,(31-LEN N*)/2;N 

*120 PRINT PAPER 3 .: INK 7; AT 20, 
0;“TO STOP, PRESS ""SHIFT"" + "" 


130 READ F.U; ON ERR GO TO 170 
14-0 IF F<>99 THEN GO TO 160 
150 PAUSE T/U*60: GO TO 130 
160 BEEP T/U,F+FF; GO TO 130 
170 ON ERR RESET ; IF 2$=“2" TH 
EN RESTORE Ni200+S10; GO TO 130 
180 CLS ; PAPER 7: PRINT AT 7,0 
;"PRESS ""l"" TO PLAY AGAIN." 

■ 190 PRINT "PRESS ""2"" TO PLAY 
CONTINUOUSLY." 

200 PRINT ;"PRESS "“3“" TO PLAY 
DIFFERENTLY." 

210 PRINT ;“PRESS "“B"" TO PLAY 
ANOTHER" 

220 PRINT "COHPOSmON. " ; PAPER 

230 PAUSE 0; LET Z$=INKE^f"$: IF 
Z$="l" OR Z$=“2" THEN GO TO 90 
24-0 IF Z$="0" THEN GO TO 50 
250 CLS : PRINT "INPUT A NUMBER 
FOR THE DESIRED" 

260 PRINT "TEMPO. THE SUGGEsTE 
D TEMPO IS" 

270 PRINT "10: A SMALLER NUMBER 
WILL MAKE" 

280 PRINT “THE TEMPO FASTER; A 
LARGER" 

290 PRINT “NUMBER WILL MAKE IT 
SLOWER.“ 

300 INPUT TT 

310 PRINT '••"INPUT A POSITIUE O 
R A NEGATIUE" 

320 PRINT "NUMBER FOR THE DESIR 
ED TONALITY." 



330 PRINT 
ITY IS 0." 

34-0 PRINT 
ILL RfilSE" 
350 PRINT 
SEMITONE.“ 
360 PRINT 
ILL LOUER 
370 PRINT 
380 INPUT 
390 SPUE 
1000 DRTR 
1200 DRTR 
14.00 DRTR 
1600 DATA 
1800 DATA 
2000 DATA 
2200 DATA 
24-00 DATA 
2600 DATA 
2800 DATA 
3000 DATA 
3200 DATA 
34-00 DATA 
3600 DATA 


“THE PROGRAMMED TuNhL 

"EACH POSITIUE UNIT U 

“THE TONAL IT"/ B Y ONE 

“EACH NEGATIUE UNIT U 
IT" 

“BY ONE SEMITONE." 

FF: GO TO 90 
“BOX 1“ 

M 
M 
M 
M 
M 
M 
M 
M 
M 
M 
M 
M 
M 
M 


* Explanation of the program * 

The program is similar to 
Program 1, except as explained 
below. 

Lines 20-30 print the title page 
and request to press ENTER in order 
to see the contents of the Music 
Box. Line 40 waits until a key is 
pressed. Lines 50 and 60 print the 
contents . This is done as follows. 

The contents (composition names 
and notes) are located in the DATA 
lists starting with line 1000 
(composition No. 1). The DATA list 
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-for the second composition begins 
with line 1200, the DATA list -for 
the third composition begins with 
line 1400, and so on, at 200 lines 
interval«- 

The Music Bo;^ is initially 
empty, and the DATA lists contain 
only the empty string "" and the 
numeral 1- However, when DATA lists 
•for the compositions are added to 
the program, the empty strings are 
replaced with the names of the 
compositions, and the numerals are 
replaced with the tempo rates for 
the compositions. 

Line 60 reads and prints one by 
one the names and the 

sequential numbers I oT the 
compositions appearing in the DATA 
lists. If there is an empty 
string "" instead of a name, only 
the sequential number is printed. 

Line 70 requests that you enter 
the sequential number of the 
composition to be played. Line 80 
accepts this number, clears the 
screen, and initializes the tempo 
modifier to TT=10, the key modifier 
to FF=0, and the flag to 

Line 90 instructs the computer 
READ the DATA list corresponding 
the selected composition, to 
determine its name N^, and its 
tempo rate R. Then it sets the 
tempo to the product of the tempo 


to 

to 


rate R and the tempo modifier TT. 

From there on the program is 
essentially the same as F'rogram 1< 
However, the menu that appears in 
lines 180-220 is different from 
that appearing in lines 140-160 of 
Program 1. This is because the 
menu contains now two additional 
options: to play again and to play 
a different composition. 


























D I Y I IMO 

OLJITrf^F^ CMOFROS 


In this part of the book you 
will find several well-known 
beautiful songs that are eminently 
suitable for practicing guitar 
accompaniment. The programs 
containing these songs are written 
in such a manner that as the songs 
are played, the corresponding 
guitar chords are displayed on the 
screen. Thus, if you like to make 
use of these programs, you do not 
need to search for the proper 
chords while learning guitar 
accompaniment. 

There are two ways in which you 
can copy the programs in this part 
of the book. You can copy each 
program individually or, prefer¬ 
ably, first copy the "Music Box 2" 
program (Chapter 28) and then add 
to it the DATA lists from the 
individual programs. In this way 
you will have all the songs in one 
comprehensive program. 
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OM T'OF=- OF=' 
OL.D SMOKEY 


The -first composition for 
this part of the book is the 
American folk song "On Top of Old 
Smokey." The melody of this pretty 
love song is very similar to that 
of the song that appeared in recent 
times under the name of "Winchester 
Cathedral" in the repertoire of the 
Beatles. 

The composition is transcribed 
in the key of C. 

♦ Program 16 * 


10 BORDER 4: PAPER 6; CL5 : DI 

M fl$(17,5); READ N$,R _ ^ 

20 LET TT=10: LET = LET A 
$(2)=“C”: LET A$(4]I=“F“: LET A$ ( 
16) =“G7‘‘ 

30 PRINT PAPER 5; " *-if * ****-Jt* NU 
U PLAYING **********" 

40 PRINT AT 10,(31-LEN N$)/2;N 

* 50 PRINT PAPER 5 ; AT 21,0; 
**^t*i* NOU PLAYING *********^" 
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60 PRINT PAPER 3; INK 7;flT 20, ' 
0;"TO STOP PRESS ""SHIFT"" + "“B 

REAK. 

70 1_ET T=R*TT 

80 READ F,U: ON ERR GO TO 120: 
IF F=100 THEN PRINT AT 5,13; PA 
PER 5;A$(g): GO TO 80 

90 IF F<>99 THEN GO TO 110 
100 PAUSE T/U*60: GO TO 80 
110 BEEP T/U,F: GO TO 80 
120 ON ERR RESET 

130 RESTORE 1010: IF Z$="l” THE 
N GO TO 80 

14-0 CLS : PRINT AT 7,0; "PRESS " 
"1"" TO PLAY CONTINUOUSLY" 

150 PRINT '"PRESS “" 2 "" TO PLAY 
DIFFERENTLY" 

160 PRINT '"PRESS ••“S"" TO STOP 

170 PAUSE 0: LET Z$=INKEY$ 

180 IF Z$="l" THEN CLS : GO TO 
30 

190 IF Z$="2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4,0;"YOU CAN 
PLAY THIS COMPOSITION" 

220 PRINT "AT A DIFFERENT TEMPO 
. THE" 

230 PRINT "ORIGINAL TEMPO IS 10 
INPUT 10" 

240 PRINT "TO RETAIN THE ORIGIN 
AL TEMPO." 

250 PRINT "INPUT A LARGER NUMBE 
R FOR A” 

260 PRINT "SLOWER TEMPO. INPUT 
A SMALLER" 

270 PRINT "NUMBER FOR A FASTER 
TEMPO." 

280 INPUT TT: CLS : GO TO 30 
380 SAUE "SMOKE'!'" LINE 10 
1000 DATA “ON TOP OF OLD SMOKEY" 

, .08 

1010 DATA 0,4,100,2,0,4,4,4,7,4, 
100,4,12,1.33,9,.8.9.4.5.4,7.4,9 
,4,100,2.7,.5,0,4.0,4,4,4,7,4,10 
0,16,7.1.33,2,.8,2,8.4,8.5,4.4.4 
,2,4,100,2,0,.5 


* Explanation of the program * 

The program is similar to 
Program 1, except as follows. 

Line 10 reserves a string array 
A$: ( ) with 17 elements, each 
element is five characters long. 
Line 20 initializes the tempo 
modifier TT=10 and the flag "" 
(but does not initialize the key 
modifier, since it is not used in 
this program or in other programs 
in this part of the book). Then 
line 20 assigns letter "C" to the 
second element of ( ), letter "F" 
to the fourth element, and the 
symbol "67" to the sixteenth 
element. They are the names of the 
guitar chords used in the present 
composition. 

The rest of the program is the 
same as Program 1, except for three 
important details. 

First, the program does not have 
the provision for changing the 
tonality of the composition. 

Second, line 80 now checks 
whether the DATA list has the 
number 100 for the current note. If 
it has, then the string element No. 
V of A^( ) is displayed on the 
screen. This element is the guitar 
chord correspondig to the part of 
the composition to be played next. 


















( 
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Third, the DATA list contains 
not only notes and rests, but also 
the markers that tell the computer 
when a chord has to be displayed on 
the screen. These markers are 
represented by the number 100. The 
number -following such a marker in 
the DATA list is the sequential 
number o-f the element of the array 
( ) that represents the needed 

guitar chord. 

We shall use 17 different chords 
in this part of the book. This is 
why 17 elements have been reserved 
for A«( ) in line 10. The longest 

chord name will be "Bflat," 
containing five letters. Therefore 
the length of the elements has 
been set to five. Of course, Bflat 
does not appear in the present 
composition, in which only three 
different chords are used. However, 
the program is written so that it 
can be used without significant 
modifications for any of the 
compositions presented in this part 
of the book. Therefore enough room 
has been reserved for the future 
entries. 


*** 



the: s^^^iiNiTS 


One -form of popular songs is 
the spiritual, usually a revival 
hymn telling a Biblical story. 
Although both black and white 
spirituals are in existence, the 
largest body of spirituals comes 
from the blacks in the South of the 
United States. An example of such a 
spiritual is "Oh! When the Saints 
Go Marchin' In," which is presented 
here. 

It is transcribed in the key of 

C. 




* Program 17 * 

10 BORDER 4-: PAPER 6: CLS ; DI 
H A$(17,5); READ N$,R 

20 LET TT=10: LET Z$="": LET A 
$(2)="C": LET A$ (4-) ="F” ; LET A*! 
12)=“C7": LET A$(16)="G7" 

30 PRINT PAPER 5 : •’****♦*♦** NO 
U PLAYING iiti*******" 

4-0 PRINT AT 10, (31-LEN N$)/2;N 

$ 

50 PRINT PAPER 5 ;AT 21,0;"*** 
****** NOU PLAYING **********" 












60 PRINT PRPER 3; INK 7;hT 20, 
0;“TO STOP, PRESS ‘•"SHIFT”" + "" 
BREAK""" 

70 LET T=RiTT 

80 READ F,U: ON ERR GO TO 120: 
IF F=100 THEN PRINT AT 5,13; PA 
PER 5;A*(U): GO TO 80 

90 IF F<>99 THEN GO TO 110 
100 PAUSE T/Ui60: GO TO 80 
110 BEEP T/U,F: GO TO 30 
120 ON ERR RESET 

130 RESTORE 1210: IF Z$="l" THE 
N GO TO 80 

14-0 CLS : PRINT AT 7,0; "PRESS 
“1"" TO PLAY CONTINUOUSLY" 

150 PRINT '"PRESS ""S"" TO PLAY 
DIFFERENTLY" __ 

160 PRINT '"PRESS ■•“S"" Tu sTuP 

170 PAUSE 0: LET Z$=INKE-y$ 

180 IF Z$="l" THEN CLS : GO TO 
30 

190 IF Z$="2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4.,0;"YOU CAN 
PLAY THIS COHPOSmON" 

220 PRINT “AT A DIFFERENT TEHPO 
T”HE ** 

*230 PRINT "ORIGINAL TEMPO IS 10 
. INPUT 10” 

24.0 PRINT "TO RETAIN THE ORIGIN 

*^250^PRINT "INPUT A LARGER NUMBE 
R FOR R** 

260 PRINT "SLOWER TEMPO. INPUT 
R SMRi-L-ER*' 

270 PRINT "NUMBER FOR A FASTER 
TEMPO." 

280 INPUT TT: CLS : GO TO 30 
380 SAUE "SAINTS" LINE 10 
1200 DATA “THE SAINTS",.08 
1210 DATA 0,4-, 4-, 4-, 5,4-, 100,2,7, .8 
,0,4-,4-,4-,5,4-,7,.8,0,4,4-,4-, 5,4,7, 
2,4,2,0,2,4,2,100,16,4,4,2,1,4,4 
■ 4,4,2,4 

1220 DATA 100,2,0,2,0,2,100,12,4 
,2.7,4.7.4.7,4,100,4,5,1,4,4,5,4 
,100,2;7,2,4,2,100,16,0,2,2,2,10 
0 , 2 , 0,.3 



* Explanation of the program * 


The program is the same as 
Program 16, except for the DATA 
list and for the following 
modifications. The chord "C7" has 
been added in line 20. The RESTORE 
statement in line 130 refers to 
line 1210. The name of the 
composition in line 380 is 
"SAINTS." The DATA list starts with 
line 1200. 
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LOVE 


The authors of folk songs are 
usually unknown. However, sometimes 
both the author of the music and 
the author of the words are known. 
Such is the case with the American 
folk song "Careless Love" whose 
music was composed by H. Lowes, and 
whose words were written by C. 
Raleigh. 

This song is transcribed here in 
the key of C. 


*** 

* Program 18 * 


10 BORDER 4-: PAPER 6; CLS : DI 
M READ N*,R 

20 LET TT=10; LET Z$=““: LET A 
*(2)="C": LET A* (4.) ="F" ; LET A$ ( 
9)="Fm”: LET A$(11)=“A7": LET A$ 
(12)=“C7“; LET A$(13)=“D7”: LET 
A*(16)="G7" 

30 PRINT PAPER 5;"********* NO 
U PLAYING **********" 

4-0 PRINT AT 10, (31-LEN N$)/2;N 

$ 



50 PRINT PRPER 5 RT 21.0; “ 

60 PRINT PRPCR 3; INK 7;RT 30, 
0; ‘‘TO STOP, PRESS •••■SHIFT***’ + ** ** 
BREAK •••••• 

70 LET T=R^TT 

80 READ F,U: ON ERR GO TO 120: 
IF F=100 THEN PRINT AT 5,13: PA 
PER 5;A*(U): GO TO 80 

90 IF F09Q THEN GO TO 110 
100 PAUSE T/U-3t60: GO TO 80 
110 BEEP T/U,F: GO TO 80 
120 ON ERR RESET 

130 RESTORE 14.10: IF Z$ = **l*‘ THE 
N GO TO 80 

140 CLS : PRINT AT 7.0;‘*PRE5S “ 
-I**** TO PLAY CONTINUOUSLY•• 

150 PRINT ^ “PRESS ••••2**** TO PLAY 
DIFFERENTLY •• 

160 PRINT ^ “PRESS ‘•“S**** TO STOP 


170 PAUSE 0: LET 2$=INKEY$ 

180 IF Z* = **l** THEN CLS : GO TO 
30 

190 IF Z$ = **2“ THEN GO TO 210 

200 STOP 

210 CLS : PRINT AT 4.0;“YOU CAN 

PLAY THIS composition“ 

220 PRINT “AT A DIFFERENT TEMPO 
. THE** 

230 PRINT **ORIGINAL TEMPO IS 10 
INPUT 10** 

240 PRINT **TO RETAIN THE ORIGIN 
AL TEMPO. *• 

250 PRINT “INPUT A LARGER NUMBE 
R FOR A“ 

260 PRINT **SLOUER TEMPO. INPUT 

A SMALLER** 

270 PRINT “NUMBER FOR A FASTER 
TEMPO.“ 

280 INPUT TT: CLS : GO TO 30 

380 SAUE ‘’CARELESS** LINE 10 
1400 DATA “CARELESS LOUE**,.08 
1410 DATA 100,2,4.1.33,0,4,100,1 
6,-1.4,-5,4,-1,4,2.4.100,2.0,.5, 
4,1.33,5,4,100,11,7.4,7,4,9,4,7, 


















4. . 1C0,13,2, . 5,100,2,4.,1.33,5,4.,! 
00,12,7,1.33,7,4-, 100,4,9,2,5,2 
1420 DfiTg 

4,2,4,100 ,2,0, .5 


» Explanation of the program * 


The program is the same as 
Program 16, except for the DATA 
list and for the following 

modifications. The chords "Fm", 
■'A7“, “C7", and "D7" have been 

added in line 20. The RESTORE 
statement in line 130 refers to 

line 1410. The name of the 

composition in line 38<.) is 

"CARELESS." The DATA list starts 
with line 1400. 




OH ! 

MO aOMN, MO 


Folk 

became a 
people or 
countries 
folk songs 
country 
composers 


songs are songs that 
common heritage of a 
a nation. Different 
and localities develop 
characteristic for each 
or locality. Great 
of classical music fre¬ 
quently incorporated folk melodies 

in their compositions, thus giving 
these compositions a distinct 


national or local color. 

The composition presented here 
is the English folk song "Oh! No 
John, No." It is transcribed in the 
key of C. 




♦ Program 19 * 

10 BORDER 4: PRPER 6: CLS : DI 
M fl$(17,5}; READ N$,R 

20 LET TT=10: LET Z*="“: LET fl 
$(2)="C“; LET (4-]! ="F“ ; LET fl$ ( 
5)="G"; LET fl$ (6) ="Rfn“ ; LET fl$(S 
)=‘-Dfn"; LET ilB) ="G7“ 


80 







81 


30 PRINT PAPER 5;"*^NO 
U PLAYING -Hi*******" 

4-0 PRINT AT 10, (31-LEN N$)/2;N 


50 PRINT PAPER 5 
♦ *■*•■*•-tNOU PLAYING 
60 PRINT PAPER 3 
0,"TO STOP, PRESS 


; AT 21,0; “**■* 
**********"' 
INK 7;AT 20, 
“SHIFT"" + 


BREAK. 

70 LET T=RiTT 

80 REAO F,U: ON ERR GO TO 120; 
IF F=100 THEN PRINT AT 5,13; PA 
PER 5;A$(0): GO TO 80 

90 IF F<>99 THEN GO TO 110 
100 PAUSE T/Ui60; GO TO 80 
110 BEEP T/U,F: GO TO 80 
120 ON ERR RESET 

130 RESTORE 1610: IF Z$="1‘ THE 
N GO TO 80 , .. 

14-0 CLS ; PRINT AT 7,0;“PRE58 
“I"" TO PLAY CONTINUOUSLY" 

150 PRINT '“PRESS "“2"" TO PLAY 
DIFFERENTLY" 

160 PRINT '“PRESS "“S"" TO 5TuP 


170 PAUSE 0: LET Z$=INKE'r'$ 

180 IF Z$="l" THEN CLS : GO TO 
0 

190 IF Z$="2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4,0;“YOU ChN 
PLAY THIS COHPOSITION" 

220 PRINT “AT A DIFFERENT TEHPO 


. THE" 

230 PRINT “ORIGINAL TEMPO Is 10 
. INPUT 10“ 

240 PRINT "TO RETAIN THE ORIGIN 
AL TEMPO." 

250 PRINT “INPUT A LARGER NUMBE 


R FOR R** 

260 PRINT "SLOWER TEMPO. INPUT 
R SHRLLFR** 

270 PRINT “NUMBER FOR A FASTER 
TEMPO.“ 

280 INPUT TT; CLS : GO TO 30 
380 SAUE “JOHN" LINE 10 
1600 DATA “OH! NO JOHN, NO“,.09 






iei0 DATA -5,4.100.2 ..0.4-, 0.4-, 100 
.16,2,4,2,4,100,2,7,4,7,8,5,6,10 
0,16.4,4,2,4,100,2,-5,4,0,4,100, 
5,2,4,2,4,100,2,7,4,5,4,100,16,2 
.2.100.2,7,4,7,3,5,8 
i620 DATA 100,6,4,4,0,4,100,0,5, 
4.2,8,0,8,100,16 , -1,4 , -5,4,10O , 2 
.0.4.4.4,100,4,-3,4,0,4,100 
i,4,-5.4.-5,2,100,2,7.2,100,4,5, 
4.2,4,i00,2,4,4,0,4,100,16,-1,8, 
-3.8.-5,4,100,2,0,1.33 


* Explanation of the program * 


The program is the same as 
Program 16, except for the DATA 
list and for the following 
modifications. The chords "G", "Am 
and "Dm" have been added in line 
20. The RESTORE statement in line 
130 refers to line 1610. The name 
of the composition in line 3S0 is 
"JOHN." The DATA list starts with 
line 1600. 
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i_ee: 


The song presented here is 
the "Aura Lee." Its music was 
written by G. R. Poulton, the words 
were written by W. W. Fosdick. 
This beautiful song has been dear 
to the American people ever since 
it first appeared about a century 
ago. It is transcribed in the key 
of B flat. 


* Program 20 * 


10 BORDER 4-: PAPER 6; CL5 : DI 
M A$(17,5); READ .... „ 

20 LET TT=10: LET Z$= : LET A 

$(3)="D‘‘: LET R* ="F" : LCT_H$ I 
5)="S"; LET ASi7) ="Cm" . LET H$ll 
0)="G(n“: LET A$ (12) ="C7- . LET H* 
(13)="D7": LET A*(15)= F7 : LET 
A* (17) ="Bf Lat" 

30 PRINT PAPER 5;"*♦♦♦**^** NO 
U PLAYING **********" ^ 

4-0 PRINT AT 10, (31-LEN N$J /=;, N 


$ 

50 PRINT 
****** NOW 


PAPER 5 ;AT 21,0;,”*** 
PLAYING **********" 
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60 PRINT PhPER 3j INK 7;flT 20, 
0; “TO 5T0P, PRESS ""SHIfnT"" + 

BREPK. 

70 LET T=R-*TT 

80 READ F,0; ON ERR GO TO 120: 
IF F=100 THEN PRINT RT 5,13; PR 
PER 5;R$((J): GO TO 80 

90 IF Fogg THEN GO TO 110 
100 PAUSE T/lJ-i60: GO TO 80 
110 BEEP T/U,F: GO TO 80 
120 ON ERR RESET 

130 RESTORE 1810: IF 2*="1“ THE 
N GO TO 80 

14-0 CLS : PRINT RT 7.0j “PRESS “ 
“I"" TO PLAY CONTINUOUSLY“ 

150 PRINT '“PRESS TO PLAY 

DIFFERENTLY’’ 

160 PRINT '“PRESS ••‘■S’”’ TO STOP 


170 PAUSE 0: LET Z*=INKEY$ 

180 IF Z$ = ’’i“ THEN CLS : GO TO 
30 

190 IF Z$=’’2’’ THEN GO TO 210 

200 STOP 

210 CLS : PRINT AT 4..0;’’YOU CAN 

PLAY THIS COHPOSmON” 

220 PRINT “AT A DIFFERENT TEHPO 
. THE” 

230 PRINT “ORIGINAL TEHPO IS 10 
. INPUT 10“ 

240 PRINT “TO RETAIN THE ORIGIN 
AL TEHPO. ’’ 

250 PRINT “INPUT A LARGER NUHBE 
R FOR R*' 

260 PRINT “SLOWER TEHPO. INPUT 

A SMALLER” 

270 PRINT “NUMBER FOR A FASTER 
TEMPO . ’’ 

280 INPUT TT: CLS : GO TO 30 

380 SAUE “AURA LEE” LINE 10 
1800 DATA “AURA LEE”. .12 
1810 DATA 100,17,5,4,10,4,9,4,10 
,4,100,7,12,4,7,4,12,2,100,15,10 
,4,9,4,7,4,9,4,100,17,10.2.100,1 
5,5,2,100,17,5,4.10.4.9,4,10.4,1 
00,12,12,4,7,4,12,2’ 

1820 DATA 100,15,10,4,9,4,7,4,9, 
4,100,17,10,1,100,3,9,2.66,9,8,9 

















100,17.14-, 1,14-, 4-, 100 .. 13,14-, 4-, 100 

,5,15,2.66.14-,8 

1830 DATA 100/12,12,2.&b,7,8,12, 
4-, 10.4-. 100,15,9,8,9,2.66,14,4-, 12 
.4,100,17,10,1 


* Explanation of the program * 


The program is the same as 
Program 16, except for the DATA 
list and for the following 
modifications. The chords appearing 
xn line 20 are "D", "F", "G", "Cm", 
••Gm", "C7", "D7", "F7" , and 
"Bflat". The RESTORE statement in 
line 130 refers to line 1810. The 
name of the composition in line 380 
is "AURA LEE." The DATA list starts 

with line 1800. 



2 




There hardly is a more 
beautiful English -folk song than 
the "Greensleeves." It probably 
originated in the 16th century. 
Some historians believe that it was 
written by Henry VIII. There is a 
reference to this song in 
Shakespeare's "The Merry Wives of 
Windsor," which means that it was 
popular at least 400 years ago. The 
melody has been frequently used as 
a Christmas carol with a new set of 
words. 

It is transcribed here in the 
key of D minor. 

♦ Program 21 * 


10 BORDER 4-: PAPER 6; CL5 ; DI 
M A$(17,5); READ N$.R ^ ^ 

20 LET TT=10; LET LET^fl 

$(1)="A“: LET AS(2)="C": LET A$ I 
3)="D": LET A* (4-) =‘‘F“ : LET A$ lOJ 
= "Dfr." : LET A$ (11) =“A7‘' 

30 PRINT PAPER 5 .: " ********* NO 
W PLAYING **********" 



















40 PRINT PT 10,(31-LEN N$J/2;N 




50 PRINT PRPER 5 ; RT 21.0, 
**♦♦♦■* NOU PJ_RYING ********* 
60 PRINT PAPER 3; INK 7;flT 
0;“TO STOP. PRESS “••SHIFT”" 
BREAK- •••• 

70 LET T=RiTT ^ 

30 READ F.iJ: ON ERR GO TO 
IF F=100 THEN PRINT AT 5.13 
PER 5;A$(U): GO TO 80 

90 IF F<>99 THEN GO TO 110 
100 PAUSE T/U-3t60: GO TO 80 
110 BEEP T/U.F: GO TO 80 
120 ON ERR RESET 
130 RESTORE 2010: IF Z» = ‘ 1 
N GO TO 80 , 

14-0 CL5 : PRINT RT 7.0. “PRE 
"I"" TO PLAY CONTINUOUSLY" 
150 PRINT '••PRESS "••2^^^‘ TO 
DIFFERENTLY•• . 

160 PRINT '•‘PRESS ""s Tu 


*" 
20 . 
+ “" 


120 : 

; PA 


PLAY 

STOP 


170 PAUSE 0: LET Z$=INKEY$ 

180 IF Z$=“l" THEN CLS : GO TO 
30 

190 IF Z$="2“ THEN GO TO 210 
200 STOP , 

210 CLS : PRINT RT 4.0; “YuU ChN 
PLAY THIS COHPOSmON‘’ 

220 PRINT “AT A DIFFERENT TEMPO 
THE ** 

*230 PRINT "ORIGINAL TEMPO IS 10 
INPUT 10“ 

240 PRINT "TO RETAIN THE ORIGIN 

^250 PRINT "INPUT A LARGER NUMBE 
R FOR R** 

260 PRINT "SLOWER TEMPO. INPUT 
A SMALLER" 

270 PRINT "NUMBER FOR A FASTER 
TEMPO.“ 

280 INPUT TT: CLS : GO TO 30 
380 SAUE “GREENSLEEU" LINE 10 
2000>DATA "GREENSLEEUES"..2 
2010 DATA 2.4.100.8.5.2.7.4.9.2- 
67.10.8.9.4.100.2.7.2.4.4.0.2.67 




, 2,3,4-, 4,100.3,5.2,2,4,2,2.67,1, 

3.2.4.100.1.4.2.1.4, -3.2.2.4 
2020 DflTfi 100,3,5,2,7,4,9,2.67.1 
0,a,9,4,100,2,7,2,4,4,0,2.67,2.8 
,4,4,100,3,5,2.67,4,8,2,4,100, 11 
,1,2.67,-2,8,1,4,100,8,2,.67,100 
.4.12,1.33,12,2.67,11,8 

2030 DATA 9,4,100,2,7,2,4,4,0,2. 
67.2.8,4,4,100,3,5,2,2,4,2,2.67, 

1.8.2.4.100.1.4.2.1.4. -3,1.33,10 
0,4,12,1.33,12,2.67,11,8,9,4,100 
. 2,7,2,4,4 

2040 DATA 0,2.67,2,8,4,4,100,8,5 
.2.67,4,8,2,4,100,11,1,2.67,-2,3 
,1,4,100,3,2,.8 


» Explanation of the program * 


The program is the same as 
Program 16, except for the DATA 
list and for the followin 
modifications. The chords in lin 
20 are "A", "C", “D", "F", "Dm", 
and "A7". The RESTORE statement in 
line 130 refers to line 2010. The 
name of the composition in line 380 
is "GREENSLEEV." The DATA list 
begins with line 2000. 


cn 01 


















W^L_TZ I IMC3 
M^T I l_D#=% 


The song presented here is 
the famous "Waltzing Matilda." It 
is one of the most popular 
Australian songs. Its words were 
^gritten in 1895 by Andrew Barton, 
who set them to the tune of an old 
marching song. 

It is transcribed here in the 
key of C. 


♦ Program 22 * 


10 BORDER 4-: PAPER 6: CLS ; DI 
M A$il7.5): READ N$,R __ _ 

20 LET TT=i0: LET 2$ = ‘‘"; LET H 
$(2)=“C“: LET A$(4.)=“F“: LET A$ I 
6)="ArTi“: LET A$ (12) =‘‘C7" : LET A$ 
(14.) ="E7" : LET A* (16) =“G7" 

30 PRINT PAPER 5;"********* NO 
W PLAYING ************ 

4-0 PRINT AT lO, (31-LEN N$)/2;N 


50 PRINT 
****** NOW 


PAPER 5 
PLAYING 


;AT 21,0;“*** 
**********" 


89 



90 


60 PRINT PRPtR 3; INK 7;RT 20, 
0; "TD STOP, PRESS ■•"SHIFT"" + "" 

BREAK. 

70 LET T=RiTT 

80 READ F,U: ON ERR GO TO 120: 
IF F=:100 THEN PRINT AT 5,13; PA 
PER 5;A$(U): GO TO 80 

90 IF F<>99 THEN GO TO 110 
100 PAUSE T/Ui60: GO TO 80 
110 BEEP T/0,F: GO TO 80 
120 ON ERR RESET 

130 RESTORE 2210: IF Z$=“l" THE 
N GO TO 80 

14-0 CLS : PRINT AT 7,0; "PRESS " 
"1“" TO PLAY CONTINUOUSLY" 

150 PRINT '“PRESS ""2"" TO PLAY 
DIFFERENTLY" 

160 PRINT '“PRESS "“S"" TO STOP 

170 PAUSE 0: LET Z$=INKEY$ 

180 IF Z*=“l" THEN CLS : GO TO 
30 

190 IF Z$="2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4.,0;“YOU CAN 
PLAY THIS COMPOSITION" 

220 PRINT "AT A DIFFERENT TEMPO 
. THE" 

230 PRINT ■■ORIGINAL TEMPO IS 10 
. INPUT 10" 

24-0 PRINT ■■TO RETAIN THE ORIGIN 
AL TEMPO. •■ 

250 PRINT "INPUT A LARGER NUMBE 
R FOR A^^ 

260 PRINT ■■SLOWER TEMPO. INPUT 
A SMALLER •■ 

270 PRINT •■NUMBER FOR A FASTER 
TEMPO. ■■ 

280 INPUT TT: CLS : GO TO 30 
380 SAUE "MATILDA■■ LINE 10 
2200 DATA “WALTZING MATILDA■‘,.2 
2210 DATA 108,2,4-, 8,4,8,4-, 8,4,8, 
100.14.2.4,2.4,100,6,0,8,2,8,4,8 
.0.8.100,4,-3,8,-1,8,0,4,100,2,- 
5,4,0.8,4,8,7,4,7,8,7,8,7,8 
2220 DATA 7.8,5,8.4,8,100,16,2,4 
.0.8.2.8.100,2,4,4,4,8,4,8,100,1 
4.2,4,2,4,100,6,0,8,2,8,4,8,0,8, 










100.4- , -3,3 , -1,8 j 0,4-, 100,2, -5,4-, 0 
. 3 

2230 DATA 4-, 3,7,4-, 5,8,4., 8,100.16 
,S ,4. .S J.3 ,£ ,3, 100,2,0 > 2,7,4-, 7 ^ S ^ 7 
, 8,100,12,7,4-, 4., 4-, 100,4,12,4-.12 . 

8.12.8.11.4- , 9.4-, 100.2,7.4.7.8 
224-0 DATA 7.8.9.4-. 7.3.7.8.9.4-. 5 . 
8.4..8.100.16.2.4-. 0.8.2.8.100.2.4- 
. 4-. 4.. 8.4-. 8.100.14-. 2.4-. 2.4-. 100 . b . 
0.8.2.8.4.3.0.3.100.4-.-3.8 

2250 DATA -1.3.0.4.100.2.-5.4.0. 
8.4.8.7.4.5.8.4.8.100.16.2.4.2.8 
,2.3.100.2.0.2 


* Explanation of the program ♦ 


The program is the same as 
Program 16, except for the DATA 
list and for the following 
modifications. The chords in line 
20 are "C", "F", "Am", "C7", "E7", 
and "G7". The RESTORE statement in 
line 130 refers to line 2210. The 
name of the composition in line 
380 is "MATILDA." The DATA list 
starts with line 2200. 


the: T^^VEFtlM 
iiNj THE -rouiiNi 


The song presented here is 
"The Tavern in the Town," variably 
described as a soldier's song or as 
a student's song. Actually it is 
a Cornish -folk song. 

This song became very popular 
in many countries during and after 
World War II. Its words were 
translated in several languages. In 
Russia it was frequently performed 
by Leonid Utesov, one of the most 
popular Russian band leaders and 
singers of the war period. 

The song is transcribed here in 
the key of C. 


* Program 23 ♦ 


10 BORDER 4-: PAPER 6: CL5 : DI 
H A*(17.5); READ N$,R 

20 LET TT=10: LET Z$="": LET A 
$(2)="C": LET A$(4.)=“F‘’: LET A* ( 
5)="G": LET A$ (16) ="G7“ 

















30 PRINT PRPER 5; "* Nu 
U PLAYING i*iii*****‘‘ 

4.0 PRINT AT 10, (31-LEN N*)/2;N 

* 50 PRINT PAPER 5 ; AT 21,0; 
****** NOU PLAYING **********" 

60 PRINT PAPER 3; INK 7;AT 20, 
0;“TO STOP, PRESS “"SHIFT"" + "“ 

BREAK. 

70 LET T=R-fTT 

80 READ F,U: ON ERR GO TO 120: 
IF F=100 THEN PRINT AT 5,13; PA 
PER 5;A$(0): GO TO 80 

90 IF F<>99 THEN GO TO 110 
100 PAUSE T/U*60: GO TO 80 
110 BEEP T/U,F; GO TO 80 
120 ON ERR RESET 

130 RESTORE 24-10: IF Z$= 1 THE 
N GO TO 80 .. 

14-0 CLS : PRINT AT 7,0; “PRESS 
“1““ TO PLAY CONTINUOUSLY" 

150 PRINT '“PRESS “"2"" TO PLAY 
DIFFERENTLY" 

160 PRINT '“PRESS ""S“" Tu sTuP 

170 PAUSE 0: LET Z$=INKEY$ 

180 IF Z*="l" THEN CLS : GO TU 
30 

190 IF Z$=“2" THEN GO TO 210 
200 STOP 

210 CLS : PRINT AT 4-,0;“YOU CAN 
PLAY THIS COHPOSmON" 

220 PRINT "AT A DIFFERENT TEHPO 
. THE" 

230 PRINT "ORIGINAL TEMPO Is 10 
INPUT 10" 

24-0 PRINT "TO RETAIN THE ORIGIN 
AL TEMPO." 

250 PRINT “INPUT A LARGER NUMBE 
R FOR R** 

260 PRINT "SLOUER TEMPO. INPUT 
R SMRi_I_ER** 

270 PRINT "NUMBER FOR A FASTER 
TEMPO." 

280 INPUT TT: CLS : GO TO 30 
380 SAUE “TAUERN" LINE 10 
24-00 DATA "THE TAUERN IN THE TOU 
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24-10 DflTfi 7.4., 100,2,7,1.33,7,4-9 
.4..7.4.,6.4.7,4.,4-,2,7..2.67,7,8,7, 
i,7,i.33.7,4,9.4.7.4.6.4,7,4,100 
,5,2,2,7,2.67,7,8 

2420 DATA 7,4,5,4,4,4,2,4,100,2, 
0,2,4,2,7,2,12,2,100,4,14,4,12,4 
.11,4,12,4,9,1.33,12,4,100,16,11 
.1.33,11,4,11,4,7,4,9,4,11,4 
2430 DATA 100,2,12,2,12,2.67,12, 
8,12,2.7.4,6,4,100,5,5,4,11,4,11 
.4.11,4,il,4,7.4.5.4.2.4,100,2,0 

. 4 '. 12,4,12,4,12,4, i2,4,7,4 
2440 DATA 4,4,0,4,100,5,-1,4,11, 
4,11,2.67,11,8,11,4,7,4,9,4,11,4 
. 100,2,12,2,100,4,9,2,100,2,7,1. 
33,7,4,7,1.33,7,4,9,4,7,4,6,4,7, 


2450 DATA 4,4,7,4,7,4,7,4,7,1.33 
.7,4.7.1.33,7,4,9,4,7,4,0,4,7,4, 
i00,5,2.2,7,2.67,7,8,7,4,5,4,4,4 
. 2 . 4 , 100 , 2 , 0,2 

2460 DATA 4,2,7,2,12,2.67,12,8,1 
00.4,14.4,12,4,11,4,12,4,9,1.33, 
12 '. 4.100,16,11,1.33,11,4,11,4,7, 
4,9,4,11,4,100,2,12,2,12,2.67,12 
,8,12,1.33 


* Explanation o-f the program * 


The program is the 
Program 16, except for 


same as 
the DATA 


list and for 
modifications. The 
been added in line 
statement in line 
line 2410. The 
composition in 
"TAVERN." The DATA 1 
line 2400. 


the following 
chord "G" has 
20. The RESTORE 
130 refers to 
name of the 

line 380 is 

ist starts with 








MUSIC BOX 22 


The program presented here is 
••Music Box 2 .” This program makes 
it possible to incorporate all th 
compositions contained in this par 
o-f the book into a single program, 
so that any of the compositions can 
be accessed and played when 
desired. 




* Program 24 * 


10 BORDER 4-: PAPER 6: CLS ; FO 
R fl=0 TO 12 => 

20 PRINT ThB 3; INK l;‘MUsIU B 
OX 2";TAB 18; INK 3;“MUSIC BOX 2 
“ : NEXT A ^ 

30 PRINT AT 15,0; PAPER 5; ’ T 

HIS IS YOUR MUSIC BOX 2. PRESS 
““ENTER”" TO SEE THE CONTENTS. 


4-0 PAUSE 0; GO SUB 310 
50 CLS : PRINT PAPER 5;"**»*** 
BOX CONTENTS *********": PRI 
NT ' ' 

60 FOR 1=1 TO 5: RESTORE Ii200 
■fS00: READ N$: PRINT I; TAB 4.;N$: 
NEXT I 


fU -U 
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70 PRINT PAPER S : AT 20 .. O"ENTE 
R THE NUHBER OF THE COMPOSI-TION 
THAT YOU UANT TO PLAY 
80 INPUT N: CLS ; LET TT=10: L 
ET 2$=“" 

90 RESTORE N*200+800; READ N$, 
R: LET T=R*TT 

100 -CLS ; PRINT PAPER 5; "^+-Sti* 
■t** NOU PLAYING ****♦**-if**" ; AT 2 
1,0; NOU PLAYING 

110 PRINT AT 10, (31-LEN N$:i/2;N 

$ 

120 PRINT PAPER 3;. INK 7j AT 20, 
0;"TO STOP, PRESS ““SHIFT"" + ““ 
BREAK. 

130 READ F,U: ON ERR GO TO 170: 
IF F=100 THEN PRINT AT 5,13; PA 
PER 5;A$(U): GO TO 130 
14-0 IF F<>99 THEN GO TO 160 
150 PAUSE T/U*60: GO TO 130 
160 BEEP T/U,F: GO TO 130 
170 ON ERR RESET : IF Z*=“2“ TH 
EN RESTORE Ni200+S10; GO TO 130 
180 CLS : PAPER 7: PRINT AT 7,0 
;“PRESS ““I"" TO PLAY AGAIN. 


190 PRINT “PRESS TO PLAY 

CONTINUOUSLY. “ 

200 PRINT ;“PRESS ""3““ TO PLAY 
DIFFERENTLY. 

210 PRINT ; “PRESS TO PLAY 

ANOTHER “ 

220 PRINT “COHPOSmON. “ : PhPER 

230 PAUSE 0: LET Z$=INKE'/$: IF 
Z$=“l“ OR Z$=“2" THEN GO TO 90 
24-0 IF Z$="0" THEN GO TO 50 
250 CLS : PRINT AT 6,0;"INPUT A 
NUHBER FOR THE DESIRED" 

260 PRINT “TEHPO. THE PROGRAHM 
ED TEMPO IS" 

270 PRINT “10. A SMALLER NUMBER 
UILL MAKE" 

280 PRINT “THE TEMPO FASTER; H 
LPRGER** 

290 PRINT “NUMBER UILL MAKE IT 
SLOWER.“ 










300 INPUT TT: GO TO ii0 _ 

310 DIM fl$(17,5); LET 
LET fl$(2)="C‘‘: LET f L> 

LET fl* (4.) =“F" : LET ■ 

320 LET P$i6)=“ftri : LET hH < ) 
cm" LET P*i3) =“DIT.“ : LET fl$ (yJ 
Fm" LET P$ (10) =“Gnri" 

330 LET fi$(ll) ="fl7": LET 
="C7“: LET fl$(13)=“D7". LET Hi 
4.)="E7“: let fl$ (15) =“F7 ; LET 

="G7“ 


34-0 LET fi$(17 
350 RETURN 
390 SfiUE “BOX 


=“Bflat“ 


1000 

1200 

14.00 

1600 


DATA 

DATA 

DATA 

DATA 


1800 DATA 
2000 DATA 


2200 

24.00 


DATA 

DATA 


♦ Explanation of the program * 


The program is similar to 
Programs 14 and 13, except as 

+ Ol 1 OWS. . X. 1 

Lines 10-30 print the title 

page and request to press the 
"ENTER" key. 

Line 40 waits until a key is 
pressed. Then it transfers control 
to line 310. This line first 
reserves a string array ) with 

17 elements, each element being 
five characters long. Then it 
assigns to the various elements of 
the array 17 different chord names, 
after which it transfers control to 

line 50- 



Line 50 clears the screen and 
together with line 60 prints the 
contents o-f the Music Box, which it 
reads in the DATA lists, lines 
1000-2400. This part of the 
program is essentially the same as 
in Program 15. 

The rest of the program is 
essentially the same as Program 14, 
except that there is no option to 
change the tonality of the 
composition. 
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“THE SOLJMD 
COMMAIMD 


The SOUND command of T/S 2068 
allows one to play three music 
voices in addition to the BEEP 
voice. This is done as follows. 
First, one must activate one, two, 
or all three SOUND channels. Then 
one must specify the desired volume 
(intensity) for each channel. Next, 
one must specify the note which a 
particular channel is supposed to 
play; two numbers are required for 
each note: one is called "fine 
frequency," the other is called 
"coarse frequency." Next one may 
specify the "envelope" and the 
"period" (we shall not use this 
facility here). Finally one must 
specify the duration of the notes 
generated by the SOUND command. 

As one can see, considerable 
work is needed to make use of the 



SOUND command. Therefore the 
programs that make use of this 
command are much longer than those 
that play simply the BEEP music. 
For this reason only five 
compositions which play music with 
the aid of the SOUND command are 
presented in this book. 

The programs that follow can be 
copied individually or, preferably, 
can be incorporated into "Music 
Box 3." In the latter case, the 
"Music Box 3" program should be 
copied first, and then the DATA 
lists from the individual programs 
should be added to it. 

Note: 

Unlike the BEEP signals, no 
SOUND signals come out of the MIC 
socket of T/S 2068. The SOUND 
music is supposed to be played 
through the internal speaker of T/S 
2068, which is located underneath 
the computer, in its left side. For 
better sound quality, the computer 
should be supported fairly high 
about the table, so that the sound 
of the speaker could easily escape. 
However, for best results one 
should place a small microphone 
below the computer's speaker and 
deliver the signals from the 
microphone to a good audio system. 
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I-f such an arrangement is used, the 
computer and the microphone must be 
acoustically shielded -from the 
speakers o-f the audio system i 
order to prevent a feedbac 
interf erence. 


c ^ 


the SfHEF^MEROEOS 


Our first composition uti 
lizing the SOUND command is a 
lovely French folk song, "The 
Shepherdess." The song is quite 
short, so that the DATA list for 
it is not too difficult to copy. 
It is transcribed in the key of G. 


* Program 25 * 

10 BORDER 4-: PAPER 6; CLS ; RE 

AD N$,R . , , „ 

20 LET TT = li3-. LET . 

30 PRINT PAPER 5.: ********* NU 

U PLAYING **********“, ^,, Mi-, 

4.0 PRINT AT 10, 131-LEN N$i.-t,N 

* 50 PRINT PAPER 5 ;AT 21,0;"*** 
NOW playing ********** 

60 PRINT PAPER 3.: 

0,“TO STOP PRESS “"SHIFT + B 

^^70 LET T=R*TT: SOUND 7,56;0,15 

'^SO^rIaD Pf^.'P*^'BF,BC,CF,CC,F,U; 
ON ERR GO TO 130: IF AF<l0 THEN 

‘^°Q0°S0UND 0 , AF; 1, AC; 2 , BF; 3 , BC; 4 

.cf;5,CC 



















100 IF F<>99 THEN GO TO ; 
110 PAUSE T/U*60: GO TO i 
120 BEEP T/U.F: GO TO S0 
130 ON ERR RESET SOUND 
14-0 RESTORE 2010: IF Z$ = 
N GO TO 70 _ ^ 

150 CLS : PRINT RT .',0; f 
■■1“" TO PLAY CONTINUOUSLY’ 
160 PRINT '“PRESS ‘•“2— ^ 

DIFFERENTLY” _ _ ^ 

170 PRINT ' “PhESS '=> 
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' THE 


PLAY 

STOP 


160 PAUSE 0: LET Z$=INKEY$ 

190 IF Z$=“i“ THEN CLS : GO Tu 
•”’0 

'^200 IF Z$="2" THEN GO TO 220 

210 STOP 

220 CLS : PRINT AT 4,0;“YOU ChN 

PLAY THIS COHPOSITION" 

230 PRINT "AT A DIFFERENT TEHPO 

nr HE * * 

240 PRINT “ORIGINAL TEMPO IS 10 
. INPUT 10" 

250 PRINT “TO RETAIN THE uRIGIN 
AL TEMPO•“ 

260 PRINT “INPUT A LARGER NUMbE 
R FOR H” 

270 PRINT “SLOUER TEMPO. INPUT 

A SMALLER” 

260 PRINT "NUMBER FOR A FASTER 
TEMPO.“ 

290 INPUT TT: CLS ; GO TO 30 

380 SAUE “SHEPHERDES" LINE 10 
2000 DATA “THE SHEPHERDESS1 
2010 DATA 0,0,0,0,0,0,14., 6,221,0 
.23,1,23,1,19,4,209,0,209,0,209, 
0.21.6,166.0,166.0,186,0,23,4,20 
9,0,209,0,209,0,21,8,221,0,23,1, 
23.1.19,2.67,-1,0,0,0,0,0,19,4,- 
1.0,0,0,0,0,14,3,209,0,23,1,23,1 
,16,4,0,0,0,0,0,0,16,8 


2020 DATA 221,0,23,1,23,1,14,3,- 
1,0,0,0,0,0,14.3.0.0,0,0,0,0,12, 
8,234,0,23,1,23,1,16,4,0,0,0,0,0 
,0,16,6,221,0,23,1,21,1,14,4,0,0 
,0,0,0,0,14,3,221,0,221,0,221,0, 
19,4,186,0,186,0,186,0,21,8,139, 
0,139,0,139,0,23.4 



2030 DhTA 13b , 0,186 .. 0,186 0 ^ 21, a 
, 221,0221.0 .. 221,0.19,2.67,-1,0, 
23.1,116,1,19,4-, 0,0,0,0,0,0,26,8 
. 221,0,23,1,116,1,23,4,0,0,0,0,0 
.0.19,8,209,0,39,1,116,1,21,4,0, 
0.0,0,0,0,14,3,186,0,221,0,221,0 
.19,4,0,0,0,0,0,0,19,8 
2040 DATA -1,0,23,1,136,0,19,4,- 
1,0,0,0,0,0,26,3,221,0,23,1,116, 
1.23.4.0.0,0,0,0.0,19,3,209,0,39 
.1.116.1,21,4,0,0,0,0,0,0,14,8,1 
36.0.221,0,221,0,19,2,0,0,0,0,0, 
0.99,3 

2050 DATA 0,0,0,0,0,0,14,3,221,0 
.23.1,23.1,19,4,209,0,209,0,209, 
0,2i.3.136.0,136,0,186,0,23,4,20 
9.0.209,0,209,0,21,8,221,0,23,1, 
23.1.19,2.67,-1,0,0,0,0,0,19,4,- 
1,0,0,0,0,0,14,3,209,0,23,1,23,1 
.16.4,0.0,0,0,0,0,16,3 
2060 DATA 221,0,23,1,23,1,14,3,- 
1,0.0,0,0.0,14,3,0,0,0,0,0,0,12, 
3.234,0,23,1,23,1,16,4,0,0,0,0,0 
.0,16,3,221,0,23,1,21,1,14,4,0,0 
.0,0,0.0,14,3,221,0,221,0,221,0, 
i9.4.186.0.136,0,186,0,21,3,139, 
0 . i39.0,i39,0,23,4 

2070 DATA 136,0,136,0,186,0,21,3 
.221.0.221,0,221,0,19,2.67,-1,0, 
23.1.116.1.19,4,0,0,0,0,0,0,26,3 
.221.0.23,1,116,1,23,4,0,0,0,0,0 
■0,19,3,209,0,39,1,116,1,21,4,0, 
0.0,0,0,0,14.3.136,0,221,0,221,0 
.19,4,0,0,0,0,0,0,19,8 
2030 DATA -1.0,23,1,136,0,19,4,- 
1.0.0,0,0,0,26,3,221,0,23,1,116, 
1.23.4.0.0.0,0,0.0,19,8,209,0,39 
.i.lie.1.21,4,0,0,0,0,0,0,14,3,1 
36.0,221,0,221,0,19,2,0,0,0,0,0, 
0,99,3 


* Explanation of the program * 


Lines 10-60 are the same as 
in Program 1, except that the key 
modifier FF is not used. 
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Line 70 sets the tempo, just as 
in Program 1. Then it activates all 
three SOUND channels and sets the 
volume of each channel to 15, the 
maximum value possible. 

Line 80 reads from the DATA 
list the fine and coarse frequency 
for the notes of the three channels 
(the channels are denoted as A, B 
and C), and also reads the notes 
and their values for the BEEP 
channel. If there are no more data 
in the DATA list, control is 
transferred to line 130. Otherwise 
it checks whether the fine 
frequency for the first SOUND 
channel (channel A) is negative. If 
the fine frequency is negative, the 
SOUND notes (or rests) are 
sustained and control is trans¬ 
ferred to line 100. If the fine 
frequency is positive, line 90 is 
executed. 

Line 90 causes the three SOUND 
channels to play the notes that 
have been read in the DATA list 
for the respective channels. Lines 
100-120 are the usual lines for 
playing the BEEP notes. 

Line 130 removes the ON ERR 
restriction, just as in Program 1, 
and then switches off all SOUND 
channels. 

Lines 140-380 are the same as 
in Program 1, except that there is 



no option tor changing the tonality 
of the composition. 

The DATA list starts with line 
2000, which contains the name of 
the composition and the tempo rate. 
Lines 2010-2080 contain the data 
for the notes of the composition. 
The data are arranged in groups of 
four pairs. The first three pairs 
represent the fine and coarse 
frequencies for the three SOUND 
channels; the last pair represents 
the note and its value (duration) 
for the BEEP channel. 












f^fcel-ude: 


The prelude was originally a 
short composition that served as an 
introduction to a longer, complete 
composition. However, many com¬ 
posers gave the name of prelude to 
short independent compositions 
which were supposed to be played by 
themselves. 

The composition presented here 
is the Prelude Op. 28, No. 7 by the 
Polish composer Frederic Chopin 
(1810-1849). It is transcribed in 
its original key of A. 

*•»* 

* Program 26 * 

10 BORDER 4: PAPER 6: CL5 . RE 
HD N$,R 

20 LET TT = 10: LET Z$ = "‘‘ 

30 PRINT PAPtR 5.; " **-t^**-*-*-*-* NO 
U PLAYING ■*•*■*■*■******" 

40 PRINT AT 10,(31-LEN N$)/2;N 

$ 

50 PRINT PAPER 5 ; AT 21,0,“**-*- 
■*••*•*•*■*■*■ NOU PLAYING ■iHt-■#-it*i" 






B0 PRINT PRPER 3; INK 7;AT 2©, 
0:‘‘TO STOP PRESS "“SHIFT"" + "“B 
REAR. 

70 LET T=R<TT: SOUND 7,56;8,15 
;9.15;10.15 

80 READ AF,AC,BF,BC,CF,CC,F,U: 
ON ERR GO TO 130: IF AF<0 THEN 
GO TO 100 

90 SOUND 0 ^ AF j 1 . AC; 2 .. BF; 3 , BC; 4 
.CF; 5.. CC 

100 IF F<>99 THEN GO TO 120 
110 PAUSE T/U*60: GO TO 30 
120 BEEP T/g,F: GO TO S0 
130 ON ERR RESET : SOUND 7,63 
140 RESTORE 3010: IF Z$="l" THE 
N GO TO 70 

150 CLS : PRINT AT 7,0;“PRESS " 
"1“" TO PLAY CONTINUOUSLY" 

160 PRINT '"PRESS TO PLAY 

DIFFERENTLY" 

170 PRINT '“PRESS •■“S"" TO STOP 

130 PAUSE 0: LET Z$ = INKE-'.'’$ 

190 IF Z$="l“ THEN CLS : GO TO 
30 

200 IF Z$="2" THEN GO TO 220 
210 STOP 

220 CLS : PRINT AT 4,0;“YOU CAN 
PLAY THIS COMPOSITION" 

230 PRINT "AT A DIFFERENT TEMPO 
THE" 

240 PRINT "ORIGINAL TEMPO IS 10 
. INPUT 10" 

250 PRINT “TO RETAIN THE ORIGIN 
AL TEMPO." 

260 PRINT "INPUT A LARGER NUMBE 
P FOR H** 

270 PRINT "SLOUER TEMPO. INPUT 
A SMALLER" 

230 PRINT “NUMBER FOR A FASTER 
TEMPO." 

290 INPUT TT: CLS : GO TO 30 
330 SAUE "PRELUDE" LINE 10 
3000 DATA “PRELUDE BY SH0PIN“,.2 
3010 DAT A 0,0,0,0,0,0,4,4,47,5,4 
7,5,47.5.13,5.33,-1,0,0,0,0,0^14 
.16,7.1.116,1,151,2,11,4,7,1,116 
■.l,15i, 2,11,4,7,1,116,1,151,2,11 


















, 4. , 7.1.116.1,151.2,11,2,0,0,0,0, 
0,0 , ie . 4-. 209,0,226,3,226,3,15,5. 
22.-1,0.0,0,0,0,16,16,197,0,75,1 
.24-1,1,21,4- 

3020 DATA 197,1,75,1,241,1,21,4, 
197,0,75,1,241,1,21,2,0,0,0,0,0, 
0.13.4.133,1,47,5,47,5,10,5.33^— 
1■0.0,0,0,0,11,16,39,1,136,1,l3l 
.2.i4.4.39.1,136,1,151,2,14,4,39 
■ l'. 186 . i . 151,2,14,2,116,1,0,0,0, 
0.8.4,116.1.196,7,196,7,3,5.33 
3030 DATA -1,0,0,0,0,0,9,16,133, 
1.241.1.15i,2,13,4,133,1,241,1,1 
51,2 , is !, 4,138,1,241,1,151,2,13,2 
.0.0,0.0,0,0,4,4,47,5,4/,5,47,5, 

13.5.33, -1,0,0,0,0,0,14,16,7,1,1 
16.1,151.2.11,4,7,1,116,1,151,2, 
11'. 4.7.1 . lie , 1,151,2,11,2 

3040 DATA 0 , 0 , 0 , 0 , 0 , 0 ,13,4,20a,0 
.22b.3.22b.3,i5,5.3o, 1,0,0,0,0, 

0.16.16,124,0,75,1,241,1,25,4,12 
4,0.75.1,241,1,25,4,117,0,138,1, 
79.2.25.2,248,0,0,0,0,0,13,4,234 
. 0 '. 235.6.235,6.13,5.33,-1,0,0,0, 
0.0.14.16,221,0,116,1,79,2,18,4 
3050 DATA 248,0,136,1,79,2,18,4, 
7.1.136.1,151,2,13,2,116,1,0,0,0 
.0.3.4.il6.1.196.7.196,7,11,5.33 
'. -i . 0.0.0,0,0,9 , i6,197,0,241,1,1 
51.2.21 ■. 4,197,0,75,1,241,1,21,4, 
197,0,75,1,241,1,21,2,0,0,0,0,0, 
0,99,4,0,0,0,0,0,0,4,4 
3060 DAT A 47,5,47,5,47,5,13,5.33 
.-1.0.0.0.0.0.14.16,7,1,116,1,15 
i.2'. li.4.7.i, il6,1,151,2,11,4,7, 
1 ■ li6 , i , iSl, 2,11,2,0,0,0,0,0,0 .. 1 
3.4.209.0.22b,3,22b,3,15,5.33,-1 
.0.0.0.0.0.16,16,197,0,75,1,241, 
i . 21'. 4.197.0.75,1.241,1,21,4 
3070 DATA i97,0,75,1,241,1,21,2, 
0,0.0,0.0,0,13,4.133,1,47,5,47,5 
.10,5.33.-1,0,0,0,0,0,11,16,39,1 
'. 186.1.151,2,14,4,39,1,18b , 1,151 
.2.14,4.39.1.136,1,151,2,14,2,11 
6,i,0,0,0,0,3,4,116,1,196,7,196, 

7.3.5.33. -1,0,0,0,0,0,9,16 

3030 DATA 138.1,241,1,151,2,13,4 




. 138.1.241,1,151,2,13,4,133 .. 1,24 
i , 1, i 5 i , 2,13,2,0,0,0 0,0,0 .. 4,4,4 
7.5.47.5.47,5,13,5.33 . -1.. 0,0,0.0 
.0.14,16.7,1.116,1,151,2,11,4,7, 
i.116,1,151,2,11,4,7,1,116,1,151 
.2.11.2.0,0,0,0,0,0,18,4 
3090 DATA 209,0,226,3,226,3,15,5 
.33,-1.0,0,0,0,0,16,16,124,0,75, 
1.241.1,25,4,124,0,75,1,241,1,25 
.4.117.0.138,1,79,2,25,2,248,0,0 
.0,0,0.13,4,234,0,235,6,235,6,13 
'.5.33,-1.0.0,0,0,0,14,16,221,0,1 
16,1,79,2,13,4,248,0,186,1,79,2, 
13.4 

3100 DATA 7,1,136,1,151,H,18,2,1 
16.1.0.0.0.0.3.4.116,1,196,7,196 
.7.11.5.33.-1,0,0,0,0,0.9^16,197 
'. 0.24l . 1.151,2,21,4,197,0,75,1,2 
41 ^1,21,2,0,0,0,0,0,0,99,4- 


♦ Explanation of the program * 

The program is the same as 
Program 25, except for the DATA 
list and for the following 
modifications. The RESTORE state¬ 
ment in line 140 refers to line 
3010. The name of the composition 
in line 380 is "PRELUDE." The DATA 
list begins with line oOOO. 


















somewmef^e: i ini 

ge% O^^F^DEN 


There hardly is any country 
that has more folk songs than 
Russia. Russian folk songs are 
characterized by a great variety of 
melodies, rhythms and stories. The 
composition presented here is a 
Russian folk song called "Somewhere 
In a Garden a Maiden Was Walking." 

I 

* Program 27 ♦ 


10 BORDER 4: PAPER 6. CL5 kE 
AD r'l$.R 

20 LET TT=10; LET Z$=" 

30 PRINT PAPER 5.: " ********* Nu 
U PLAYING *■*********“ 

40 PRINT AT 10, (31-LEN N$J /ci,N 

* 50 PRINT PAPER 5 ;AT 21,0;“*** 
****** NOU PLAYING **********' 

60 PRINT PAPER 3; INK 7;AT 20, 
0;"TO STOP PRESS •“■SHIFT"" + B 
REAK‘“‘ " - 

70 LET T=R*TT; SOUND 7,50;a, 
,9,15;10,15 


15 




S0 READ RF.flC.BF.BC,CF.CC,F,U: 
ON ERR GO TO 130: IF flF<0 THEN 
GO TO 100 

90 SOUND 0,flFj l,fiC.;2,BF; 3,BC.; 4 
. OF;5.CO 

100 IF F<>99 THEN GO TO 120 
110 PAUSE T/Ui60: GO TO S0 
120 BEEP T/U.F: GO TO 80 
130 ON ERR RESET . SOUND 7^63 
140 RESTORE 4010: IF 2$="1“ THE 
N GO TO 70 

150 CLS : PRINT RT 7,0;"PRESS " 
“1"" TO PLRY CONTINUOUSLY" 

160 PRINT '"PRESS ■•‘•2"" TO PLRY 
DIFFERENTLY" 

170 PRINT '"PRESS ••"S"" TO STOP 


180 PAUSE 0: LET Z$=INKEY$ 

190 IF Z$="l" THEN CLS : GO TO 
30 

200 IF Z$="2“ THEN GO TO 220 
210 STOP 

220 CLS : PRINT RT 4,0;"YOU CRN 
PLRY THIS COMPOSITION" 

230 PRINT "RT R DIFFERENT TEMPO 
. THE" 

240 PRINT "ORIGINAL TEMPO IS 10 
. INPUT 10" 

250 PRINT "TO RETAIN THE ORIGIN 
RL TEMPO." 

260 PRINT "INPUT R LARGER NUMBE 
R FOR R" 

270 PRINT "SLOUER TEMPO. INPUT 
fi SMALLER" 

230 PRINT "NUMBER FOR A FASTER 
TEMPO. " 

290 INPUT TT: CLS : GO TO 30 
380 5RUE "SOMEWHERE" LINE 10 
4000 DATA "SOMEWHERE IN R GARDEN 

4010 DATA 186,0,248,0,209,5,17,8 
.-1,0,0.0.209,5,17,8,197,0,23,1, 

241.1.16.16, -1,0,0,0,0,0,ISi16,1 
-1.0.0.0.0.0.17,16 , -1,0,0,0 >0 .. 0 ^ 
16 16,248.0,57,1,232,2,14,8 , -1,0 
. 0 0.0.0,14,3,248,0,57,1,232,2,1 

4.16, -1,0,0,0,0,0,16,16 

4020 DATA -1,0,0,0,0,0,17,16,-1, 

















0.0.0.0 . S . 19 > 16,1S6 0 .. , 2 > ii3H , 

2^2i .3 . i86 >0,24-3 ..0,24-8,0.. 17,3,19 
7.0,23,1,24-1,1,16,16,-1,0,0,0,0, 

0'0,0,0,16,16,24-6,0,67,1,232,2,1 

^■'6a**1*®-*®-®-^^2^^^4^^ -i£ -I 

4-030 DATA -1,0,0,0,0,0,16,16,-1, 
0.0.0.0.0,19,16,-1,0,0,0,0,0,17, 
16 , -1 i 0 ^ 0 , 0,0 - 0 -16 - 16 • -1 • ® - 0 i ® i *3 

. 0.14,1& . 243,0,241,1,2ii6,3 , l2 ,3 , 
243.0.24.3.0,243,0,12,16,-1,0,0,0 
,0,0,i6,16,7,l,75,l,75,l,ll,16,- 
1.0.0.0.0,0,14,16 

4040 Dfltfl -1.0,0,0,0,0,12 ,Id,-1, 
0,0,0,0,0„11,16,241,1,241,1,241, 
1.9.8.—1,0,0.0,0,0,4,8,241,1, 22b 
. 3 .226.3.9.16,-1.0,0,0,0,0,11,16 
.-1,0,0,0,0,0,12,16,-1,0,0,0,0,0 
'. 14,16 .241,1,241,1,241,1,16,3,24 
3.0,243.0,243,0,12,3 
4050 Dfltfi 7,1,75,1,75,1,11,16,-1 
,0.0,0.0.0,14,16,-1,0,0,0,0,0,12 
.16,-1.0,0,0,0,0,11,16,241,1,226 
3,226,3,9,4,165,0,209,0,248,0,2 
i,ib,—1,0,0,0,0,0,19,13,—1,0,0,0 
.0.0.17,16,-1,0,0,0,0,0,16,16,18 
6.0,248,0,209,5,17,8 
4060 DATA -1,0,0.0,209,5,17,3,19 
7,0,23,1,241,1,16,16,-1,0,0,0,0, 
0,19.16.-1.0.0.0.0.0.17,16,-1,0, 
0,0,0,0,16,16,248,0,57,1,232,2,1 
4.3,-1,0.0.0,0,0.14,3,243,0,57,1 
,232,2,14,16,-1,0,0,0,0,0,16,16, 
-1,0,0,0,0,0,17,16 

4070 DATA -1,0,0,0,0,0,19,16,156 
.0.232 .2 .232,2 .^i .8.133,0,i£4.3,0, 
248,0,17 ;. 3,197!. 0.23 i 1,241,1,16,1 
3 , -1,0,0,0,0,0,19.16 . -1,0,0,0,0 , 
0,17,16,-1,0,0,0,0,0,16,16,243,0 
,57,1,232,2,14,3,-1,0,0,0,0,0,14 
,16,-1,0,0,0,0,0.16.16 
4080 DATA -1,0,0.0,0,0,19,16,-1, 
0,0,0,0,0,17.16,-1.0.0,0.0.0,16, 
16,-1,0,0,0,0,0,14.16,243,0,241, 
1,226,3,12,3,243,0.243.0.243,0,1 
2,16,-1,0,0,0,0,0,16,16,7,1,75,1 
,75,1,11,16,-1,0.0.0,0.0,14,16,- 
1,0,0,0,0,0,12,16 
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4-090 DfiTfi -1 ^ 0 , 0 .. 0 .. 0 .. 0 .. 11 ^ 16 i=;41 
. 1 .241.1 .241.1,9,8 , -1,0,0.. 0,0 ^ 0 . 
4.S,24i,i,226,3,226,3,9,16,-1,0, 
0^0.0,0,11,16,-1,0,0,0,0,0,12,16 
, - 1 ', 0,0,0,0,0,14,16,241,1,241,1, 
241.1,16.3.243,0,243,0,243,0 , lii , 
8 ,7 ■. 1,75,1,75,1,11,16 
4100 DflTfl -1,0,0,0,0,0,14,16,-1, 
0,0.0.0,0,12,16,-1,0,0,0,0..0.- II 4 
16.241.1.241.1,241,1,9,3,165,0,2 
21.0,221,0,20,16,165,0,209,0,243 
.0:.21,4 


* Explanation of the program * 

The program is the same as 
Program 25, except for the DATA 
list and for the following modifi¬ 
cations. The RESTORE statement in 
line 140 refers to line 4010. The 
name of the composition in line 380 
is "SOMEWHERE." The DATA list 
begins with line 4000. 


*** 
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S-r#=%Fil— I OUT 

w#=%L_"rz 


The prominent characteristics 
o-f the classical waltz are three 
beats per measure with 
downbeat followed by 
afterbeats, a songful 
simple accompaniment, 
presence of two or more 


a strong 
two faint 
melody, e 
and the 
sections 


iixteen measures in length. You 
Mill readily recognize these 

distinguishing features m the 
lomposition presented here. ^ 

The composition is the very 
lovely "Starlight Waltz" by the 
American composer C. S. Brainard. 
It is transcribed in the key of B. 


*** 


* Program 28 * 


10 BORDER 4: PAPER 6; CL5 


RE 


RD 


U 


N*.R 

20 LET TT=10: LET Z$= 

30 PRINT PAPER 5; ***#*•*•*■*■* 

PLAYING -tii******-*" 
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40 PRINT AT 10,(Sl-LEN N$i/2;N 

$ 

50 PRINT PAPER 5 RT 21,0.1 
****** NOW PLAYING **********” 

60 PRINT PAPER 3.; INK 7.; AT 20, 
0 ;"TO STOP PRE55 '•"SHIFT + ""B 

REAK. _ _ 

70 LET T=R*TT; SOUND 7,5Q;a,15 
; 9.15:10,15 

S0 READ AF.AC,BF,BC,CF,CC,r,U: 
ON ERR GO TO 130: IF AF<0 THEN 
GO TO 100 ^ , 

90 SOUND 0,AF; 1,AC;2,BF; .3,6^, 4 
1 LrfF , 5 , — 

100 IF F<>99 THEN GO TO 120 
110 PAUSE T/U*60: GO TO 30 
120 BEEP T/U,F: GO TO 30 
130 ON ERR RESET . SOUND 7,D3 
140 RESTORE 5010: IF Z$="l" THE 

N GO TO 70 __c___ 

150 CLS : PRINT AT 7,0; PREPA 
“1“” TO PLAY CONTINUOUSLY" 

160 PRINT '"PRESS ""2"" TO PLAY 
DIFFERENTLY" ,____ 

170 PRINT '“PRESS "“S TU sTuP 

130 PAUSE 0: LET Z$=INKEY$ 

190 IF Z$=“1‘' THEN CLS : GO Tu 
30 

200 IF Z$="2" THEN GO TO 220 

iio CLS*^: PRINT AT 4,0; “YOU CAN 
PLAY THIS COMPOSITION" 

230 PRINT "AT A DIFFERENT TEMPO 
THE *' 

*240 PRINT “ORIGINAL TEMPO IS 10 
INPUT 10“ 

*250 PRINT "TO RETAIN THE ORIGIN 

^260^PRINT "INPUT A LARGER NUMBE 
P FOP 

270 PRINT "SLOWER TEMPO. INPUT 
SMPi_i_EP“ 

230 PRINT "NUMBER FOR A FASTER 

^igO^INPUT TT: CLS : GO TO 30 
380 SAUE "STARLIGHT" LINE_10_ 
5000 DATA “STARLIGHT UALT^ ,.c 


















5010 DATA 0,0,0,0,0,0,7,3,0,0^0, 
0,0,0 , Q , S , 4-6,2.92,4-, 92,4,11, S , 11 
6,1.186,1,0,0,99,3,116,1,186,1,0 
, 0.il.8,232,2,209,5,209,5,12,3,1 

62.1.241.1.79.2.99.8.162.1.241.1 
.79,2,9,8,46,2,92,4,92,4,16,8,11 
6.1.136,1,0,0,14,3 

5020 DATA 116,1,186,1,0,0,99,8,4 
6.2.92.4.92,4,99.8,116,1,186,1,0 
.0.99,8,il6,1,186,1,0,0,11,8,232 
■.2.209.5.209,5,14,8,162,1,241,1, 
79.2.12.3,162,1,241,1,79,2,99,3, 

232.2.209.5.209.5.99.8.162.1.241 
,1,79,2,99,3,162,1,241,1,79,2,9, 

5030 DATA 46,2,92,4,92,4,12,8,11 
6,1,186,1,0,0,11,3,116,1,186,1,0 
. 0.99,8,46,2,92,4,92,4,99,3,116, 
1,186.1.0,0,7,8,116,1,186,1,0,0, 
9.3,46.2.92,4,92,4,11,8,116,1,18 
6 ', 1,0,0,99.3,116,1,186,1,0,0,11, 
8.232,2,209,5,209,5,12,8 
5040 DATA 162,1,241,1,79,2,99,3, 
162,1,241,1,79,2,9,8,46,2,92,4,9 
2.4.16.8.116,1,186,1,0,0,14,8,11 
6^1,136,1,0,0,99,8,46,2,92,4,92, 
4,99.8.116,1,186,1,0,0,99,3,116, 
1.186,1,0,0,11,3,232,2,209,5,209 
.5.14,8,162,1,241,1,79,2,12,8 
5050 DATA 162,1,241,1,79,2,99,3, 

232.2.209.5.209.5.99.3.162.1.241 
.1.79,2,99,3,162,1,241,1,79,2,6, 

3.46.2.92.4.92.4.7.8.116.1.136.1 
.0,0,99,8,113,1,i86,1,0,0,99,8,4 
6.2.92,4.92,4,99,8,116,1,186,1,0 
.0,7,8,116,1,186,1,0,0,9,8 

5060 DATA 23.1,46,2,92,4,11,8,11 
6,1,186,1,0,0,99,8,23,1,116,1,13 
6,1,11,3,243,0,232,2,209,5,12,8, 
162,1,241,1,79,2,99,8,162,1,241, 
1,79,2,9,8,209,0.46,2,92,4,16,8, 
221,0,116,1,136,1,14,8,116,1,186 
,1,0,0,99,8,46,2.92,4,92,4,99,8 
5070 DATA 116,1,136.1,0,0,99,3,2 
3,1,116,1,136,1,11.3,221,0,232,2 
,209,5,14,8,248,0,162,1,243,0,12 
,8,162,1,241,1.79,2,99,8,232,2,2 
09,5,209,5,99,8,162,1,241,1,79,2 


,99,8,39.1.162,1,24-1,1,9,8,243,0 
,46,2,92,4,12,8,23,1,116,1,136,1 
, 11,8 

5080 DflTfi 116,1,186,1,0,0,99,8,4 
6.2,92.4.92,4,99.8.116,1,186,1,0 
.0.7.8.116.1,186.1.0,0,9,8,23,1, 
46,2.92,4,11,3,li6,1,186,1,0,0,9 
9,8,23,1,116,1,186,1,11,8,248,0, 
232,2,209,5,12,8,162,1,241,1,79, 

2.99.8.162.1.241.1.79.2.9.8 
5090 DATA 209,0,46,2,92,4,16,8,2 
21.0.116,1,186,1,14,8,116,1,186, 
1.0,0,99,3,46,2,92,4,92,4,99,3,1 
16.1.186,1,0,0,99,8,23,1,116,1,1 
36,1,11,8,221,0,232,2,209,5,14,3 
.248.0.162,1,243,0,12,8,162,1,24 
1,1,79,2,99,8,232,2,209,5,209,5, 

99.8 

5100 DRTh 162,1,241,1,79,2,4,8,1 
62.1.241,1,79,2,6,8,46,2,92,4,92 
.4.7.8.116.1.186,1,0,0,99,8,116, 
i,136,1,0,0,99,3,46,2,92,4,0,0,9 
9,4,0,0.0,0,0,0,99,3,186,0,68,3, 

136.6.19.3.162.1.46.2.151.2.99.8 
. 162,1,46,2,151,2,99,8 

5110 DATA 63,3,136,6,136,6,99,8, 
186,0,162,1,46,2,18,8,209,0,162, 
1.46,2.16,8,209,0,46,2,92,4,16,3 
.221.0.116,1,136,1,14,8,116,1,13 
6.1.0,0,99,3,46,2,92,4,92,4,99,3 
.il6.1.136.1.0,0.99,3,23,1,116,1 
;186;1,11,3,221,0,232,2,209,5,14 
.3 

5120 DATA 243,0,162,1,241,1,12,8 
.162.1.241.1.79,2,99,8,232,2,209 
.5.209,5,99,8,162,1,241,1,79,2,9 
9.3,39.1.162,1,241,1,9,8,243,0,4 
6^2,92.4,12,3,23,1,116,1,136,1,1 
1.3.116.1,186,1,0,0,99,8,46,2,92 
.4.92,4,99,3,116,1,186,1,0,0,99, 
3 

5130 DATA 23,1,116,1,186,1,11,8, 
186.0,68.3,136.6,19,8,162,1,46,2 
.15i,2,99,8,162,1,46,2,151,2,99, 
8,63,3,136,6,136,6,99,8,186,0,16 
2.1,46.2,18,8,209,0,162,1,46,2,1 
6.8,209,0,46,2,92,4,16,3,221,0,1 
16,1,186,1,14,3,116,1,136,1,0,0, 

99.8 















514-0 DATA 4.6,2,92,4,a2,4.. ya,t3,ll 
6,1,136,1,0,0,99,3,23,1,116,1,18 
6, 1 , 11 . s,aai,a,aaa,a,209,5,i4,a, 
248,0,162,1,241,1,12,8,162,1,241 
,1.79,2,99,8,232,2,209,5,209,5,9 
9,8,162,1,241,1,79,2,4,8,162,1,2 
41.1,79,2,6,3,46,2,92,4,92,4,7,8 
5150 DATA 116,1,186,1,0,0,99,8,1 
16,1,186,1,0,0,99,8,46,2,92,4,92 
■ 4 « aa ,£5,0,0,0,0,0,0,7 ,£5,45,2,92 , 

4.92.4.9.3.46.2.92.4.92.4.11.16, 
-1.1. ISb.1.0,0,7,16,116,1,136,1, 
0,0.6,16,-1,1,136,1,0,0,7,16,116 
. 1.186.1,0,0,9,16 

5160 DATA -1,2,209,5,209,5,11,16 
. 232.2,209,5,209,5,12,16,-1,1,24 
i,1.79.2,9,16,162,1,241,1,114,2, 

3.16, -1.1,241,1,79,2,9,16,162,1, 

241.1.114.2.11.16, -1,1,241,1,79, 
2,12.16,46,2,92,4,92,4,16,3,116, 
1,136,1,0,0,14,3,116,1,186,1,0,0 
.99,8 

5170 DATA 46,2,92,4,92,4,99,8,13 
6,1,0,0,0,0,2,16,-1,0,0,0,0,0,7, 

16.116.1, l£56,1,0,0,11,16,-1,0,0, 
0,0,0,14,16,232,2,209,5,209,5,14 
. 3.162,1,241,1,114,2,12,8,162,1, 
241,1,114,2,99,3.232,2,209,5,209 
,5.99,8,162,1,241,1,114,2,2,16 
5180 DATA -1,1,241,1,79,2,6,16,1 

62.1.241.1.114.2.9.16, -1,1,241,1 
,79,2,12.16,46,2.92,4,92,4,12,3, 
116,1,136,1,0,0,11,3,116,1,186,1 
,0,0,99,3,46,2,92,4,92,4,99,8,11 
6,1,136,1,0,0,7,8,11b,1,186,1,0, 
0,9,8,46,2,92,4,92,2,11,16 

5190 DATA -1,0,0,0,0,0,7,16,116, 
1,186,1,0,0,5,16,-1,0,0,0,0,0,7, 
16,116,1,136,1,0.0.9.16,-1,0,0,0 
,0,0,11,16,232,2,209,5,209,5,12, 
16,-1,1,241,1,79.2,9,16,162,1,24 

1.1.114.2.8.16, -i,1,241,1,79,2,9 
,16,162,1,241,1,114,2,11,16 
5200 DATA -1,1,241.1.79,2,12,16, 

46.2.92.4.92.4.16.8.116.1.186.1, 
0,0,14,8,116,1,186.1.0.0.99,3,46 
,2,92,4,92,4,99,8,i86,i,0,0,0,0, 


2.16, -1,0,0,0,0,0,7,16.. 116,1,186 
, 1,0,0,11,16 , -1,0,0,0.0,0,14-, 16 , 
232,2,209,5,209,5,14-, S 

5210 DflT« 162,1,24-1,1,114., 2,12,8 
. 162.1,24-1,1,114-, 2,99,8,232,2,20 
9,5,209,5,99,3,162,1,24-1,1,114-, 2 
. 1,16 , -1,1,24-1,1,79,2,2,16,162,1 
.24-1,1,114-, 2,11,16,-1,1,24-1,1,79 
. 2.9.16.4-6,2,92,4-, 92,4-, 7,8,116,1 
.186,1,0,0,99,3,116,1,186,1,0,0, 

99.3 

5220 DATA 4-6,2,92,4,92,4-, 99,4 ,-1 
.1.186.1.0,0,99,3.165,0,68,3,136 
'.6,19,8, i62,1,46,2,151,2,99,8,16 

2.1.46.2.151.2.99.8.68.3.136.6.1 
36.6.99,3,162,1,46,2,151,2,21,16 
.-i,0,0,0,0,0,19,16,162,1,46,2,1 

51.2.13.16, -1,0,0,0,0,0,16,16 
5230 Dfltfi 209,0,46,2,92,4,16,3,1 
16.1.186,1.0,0,14,8,116,1,186,1, 
0.0,99.8.46,2,92.4.92,4,99,8,186 
.i.186.1.186.1,2.16,46,2,186,1,1 

36.1.7.16.116.1.186.1.186.1.11.1 
6.il6,1.162,1,241,1,14,16,232,2, 
209,5,209,5,14,3,162,1,241,1,79, 
2 ^2 S 

5240'data 162,1,241,1,79,2,99,8, 
232,2,209,5,209,5,99,8,162,1,241 
,1.79,2,2,16,-1,0,46,2,92,4,6,16 
.162.1,241,1,79,2,9,16,-1,0,0,0, 
0.0.12.16,209,0,46,2,92,4,12,3,1 

16.i.186,1,0,0,11,8,116,1,186,1, 

0.0,99.3.46,2,92,4,92,4,99,3 
5250 DATA 116,1,186,1,92,4,99,3, 
116,1,136.1,92,4,7,6,165,0,68,3, 

136.6.19.8.162.1.46.2.151.2.99.3 
. 162.1.46.2,151,2,99,8,68,3,136, 
6,136,6,99,3,162,1,46,2,151,2,21 
.16.-1.0.0,0.0,0,19,16,1d2,1,46, 

2.151.2.13.16, -1.0.0,0,0,0,16,16 
5260 DAtA 209,0,46,2,92,4,16,8,1 
16.1.136.1.0,0,14,3,116,1,136,1, 
0.0.99.3,46,2,92,4,92,4,99,3,186 
.1.0.0.0,0,2,16,-1,0,232,2,209,5 
.7.16,116,1,136,1,241,1,11,16,-1 
'. 0.162.1 .241.1.14,16,232,2,209,5 
, 209,5', 14,3,162,1,241,1,79,2,12, 


















52T»B DATA 162,1,24-1,1,79,2,9y , S , 
232,2,209,5,209,5,99,3,162,1,24-1 
,1.79,2,1,16,-1,0,4-6,2,92,4,2,16 
,16a, 1 ,a4.a, i, 7o ,a, ii, i®, - i ,g,a. g 

0 , 0 9 , 16 ,46, 2 ,92,4,92,4 ,7 , a , 116 

.1,186,1.0,0,99,8,116,1,186,1,0, 
0,99,8.46,2,92,4,92,4,99,8,0,0,0 
.0.0.0.99,8 

5280 DATA 0,0,0,0,0,0,7,3,0,0,0, 
'0,0,0,9,3,46,2,92,4,92,4,11,3,11 
6.1.186,1,0,0,99,8,116,1,186,1,0 
.0,11.3.232,2,209,5,209,5,12,3,1 
62.1.241.1.79,2,99,3,162,1,241,1 
,79,2,9,3,46,2,92,4,92,4,16,8,11 
b.1.136,1,0,0,14,6 

5290 DATA 116,1,136,1,0,0,99,8,4 


232.2.209.5.209.5.99.3.162.1.241 
.1,79,2,99,3,162,1,241,1,79,2,9, 
8 

5300 DATA 46,2,92,4,92,4,12,3,11 
6,1,136,1,0,0,11,3,116,1,186,1,0 
.0.99,3,46,2,92,4,92,4,99,8,116, 
i.136,1,0,0,7,3,116,1,136,1,0,0, 
9 ; 8,46,2,92,4,92,4,11,8,116,1,13 
6,1,0,0,99,3,116,1,136,1,0,0,11, 
8.232,2,209,5,209,5,12,8 
5310 DATA 162,1,241,1,79,2,y9,8, 
162,1,241,1,79,2,9,3,46,2,92,4,9 
2,4,16,3,116,1,136,1,0,0,14,3,11 
6,1,136,1,0,0,99,3,46,2,92,4,92, 
4,99,3,116,1,136,1,0,0,99,3,116, 
1.136,1,0,0,11,3.232,2,209,5,209 
.5.14,3,162,1,241,1,79,2,12,3 
5320 DATA 162,1,241,1,79,2,99,8, 

232.2.209.5.209.5.99.8.162.1.241 
,1,79,2,99,3,162,1,241,1,79,2,6, 
3,46,2,92,4,92,4,7,8,116,1,186,1 
,0,0,99,3,116,1,136,1,0,0,99,8,4 
6,2,92,4,92,4,99,8,116,1,186,1,0 
,0,7,3,116,1,136,1,0,0,9,3 

5330 DATA 23,1.46,2.92,4,11,8,11 
6,1,136,1.0,0,99.3,23,1,116,1,18 
6,1,11,3,243,0,232,2,209,5,12,8, 
162,1,241.1,79,2.99,8,162,1,241, 



















F^REINICM SOMO 


The composition presented 
here is an old French song. It has 
a delicate, melancholy beauty and 
probably was ment to be accompanied 
by the lute. It is transcribed in 
the key of B minor. 


* Program 29 * 

10 BORDER 4-; PAPER 6. CL5 . RE 
RD N$,R 

20 LET TT=i0. LET 2$ = "‘‘ 

30 PRir4T PAPER 5; “ NO 

U PLAYING 

4-0 PRINT AT 10, (31-LEN N$j/2;N 

$ 

50 PRINT PAPER 5 ;AT 21,0; *** 

****** NOU PLAYING **********" 

60 PRINT PAPER 3; INK 7;AT 20, 
0;“TO 5T0P PRESS "“SHIFT"" + ”“B 
REAR. 

70 LET T=RiTT: SOUND 7,56;S,15 
;9,15;10,15 

60 READ AF,AC,BF,BC,CF,CC,F,U; 
ON ERR GO TO 130: IF AF<0 THEN 
GO TO 100 

90 SOUND 0,AF; 1,AC;2,BF; 3,BC; 4- 
,CF;5,CC 



100 IF F<>99 THEN GO TO 120 
110 PAUSE T/Ui60; GO TO 30 
120 BEEP T/U.F: GO TO S0 
130 ON ERR RESET ; SOUND 7,63 
14-0 RESTORE 6010: IF Z$ = "l" THE 
N GO TO 70 

150 CLS : PRINT RT 7,0;"PRESS " 
"I"” TO PLAY CONTINUOUSLY" 

160 PRINT •'"PRESS TO PLAY 

DIFFERENTLY" 

170 PRINT '“PRESS ••“5“" TO &TOP 


180 PAUSE 0: LET Z$=INKEY$ 

190 IF Z$="l" THEN CLS : GO TO 
30 

200 IF Z$=”2" THEN GO TO 220 
210 STOP 

220 CLS : PRINT AT 4,0;“YOU CAN 
PLAY THIS COMPOSITION" 

230 PRINT "AT A DIFFERENT TEMPO 
. THE" 

240 PRINT "ORIGINAL TEMPO IS 10 
INPUT 10" 

250 PRINT "TO RETAIN THE ORIGIN 
AL TEMPO." 

260 PRINT "INPUT A LARGER NUMBE 
R FOR H** 

270 PRINT "SLOUER TEMPO. INPUT 
A SMALLER" 

230 PRINT "NUMBER FOR A FASTER 
TEMPO." 

290 INPUT TT: CLS ; GO TO 'sO 
380 SAUE “FRENCH" LINE 10 
6000 DATA “MEDIEUAL FRENCH SONG" 
»2 

6010 DATA 0,0,0,0,0,0,11..8,-1,0, 
0.0,0,0,13.3.39,1,186,1,136,1,14 
.2 . -1,0,0,0,0,0,14,4,-1, 0,0,0,0 , 
0 , i6.3 . -1,0,0,0,0,0,14., 8,75,1,18 
6,1,i36,1,13,2,-1,0,0,0,0,0,13,4 
,-1,0,0,0,0,0,14,8,-1,0, 0,0,0,0, 
is 3 

6020 DATA 116,1,116,1,116,1,11,4 
.-1,0,0,0,0,0,11,4,186,1,186,1,1 
86.1.11,4,-1,0,0,0,0,0,14,4,213, 
1.213,1,213,1,13,2,79,2,79,2,79, 
2^99,4,-1,0,0,0,0,0,11,8,-1,0,0, 
0,0,0,13,3,39,1,186,1,136,1,14,2 




















.-1,0,0.0i0/0/14-,4- _ 

6030 DATA -1,0,0,0,0,0,Id,B,-1,0 
. 0.0.0.0.14-, 8,75,1,136,1,186,1,1 

3.2, -1.0,0,0,0,0.. 13 >4.,-1,0,0,0,0 
.0.14-, 8,-1,0,0,0,0,0,13,8,116,1, 
iS6,1,136,1,11,4-, -1,0,0,0^0,0,13 
. 4. . 75.1.186,1,136,1,13,2 . d7 , -1,0 
.0.0,0,0,11,3 

6040 DATA 116,1,136,1,13d,1,11,2 
.0,0,0,0,0,0,93,4,-1,0,0,0,0,0,1 
48,-1.0.0,0,0,0,13,3, 

1.116.1.13.2, -l,0,0,0,0,0,13,4,- 

1.0,0,0,0,0,19,3,-1,0,0,0,0,0,13 
.3,23,1,241,1,241,1,16,2,-1,0,0, 
0.0.0,16,4 . _ , 

6050 DATA -1,0,0/0,0,0,13,-3,-1,0 
,0,0,0,0,16,3,39,1,136,1,1»5,1,1 
4-. 4,-1,0,0,0,0,0,14-, 4,23,1,75,1, 
75.1.13.4 , -1.0,0.0,0,0,11,4-, 39,1 

.79,2,79,2,10,2,0,0,0,0,0,0,^9,4 

,-1,0,0,0,0,0,11,3,-1,0,0,0,0,0, 
13,8 

6060 DATA 39,1,186,1,186,1,14,2, 
-1 . 0 . 0 . 0 . 0 , 0 , 14 , 4 ,- 1 , 0 , 0 , 0 , 0 , 0,1 
6,8,- 1 , 0 :. 0,0,0,0,14,8,75,1,136,1 
.186.1.13,2,-1,0,0,0,0,0•13,4,-1 
. 0 . 0 . 0 . 0 . 0 , 14 , 8 ,- 1 , 0 , 0 , 0 , 0 , 0 , 13 „ 
3,il6,i,i86,1,136,1,11,4,-1,0,0, 
0,0,0,13,4 , ,- - 

6070 DATA 75,1,136,1,13d,1,13,2. 
67.-1,0,0,0,0,0,11,3,116,1,13d,1 
,186,1,11,1.33 

* Explanation o-f the program * 


The program is the same as 
=>rogram 25, except for the DATA 
List and for the following modifi¬ 
cations. The RESTORE statement in 
line 140 refers to line 6010. The 
name of the composition in 380 is 
"FRENCH." The DATA list begins with 
line 6000. 
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MLJS I C 

BOX 

3 ; 

□ur 

1 ast 

program 

is "Music 

Box 3. " 

This 

program 

m^kes i ti 

possible 

to incorporate 

‘ several 


four-voiced compositions into a 
single program, so that any of them 
can be played at will. Unfor¬ 
tunately, the memory of T/S 2068 is 
not large enough to accept all 
five compositions presented in 
this part of the book. However, 
there is enough room for all the 
compositions excluding the 
"Starlight Waltz," or for the 
"Starlight Waltz" and two other 
compositions. Therefore you should 
make two Music Boxes: one with four 
compositions, the other with three. 


* Program 30 * 

10 BORDER 4-: PAPER 6: CL5 : FO 
R fi=0 TO 12 


128 


















129 


20 PRINT TRB 3.; INK 1; "HUSIp a 
OX 3"; TAB 13.; ink 3; “MUSIC BO.X 3 

30^PRINT at 15.0; PAPER 5;''"T 
Hxi IS YOUR MUSIC BOX 3. PRESS 
"“ENTER““ TO SEE THE CONTENTS. 


4-0 Pf^U5E 0 

50 CLS : PRINT PAPER 5,;“***^|* 
-i-ii BOX CONTENTS ********* PRI 

^"’"ftO FOR 1=1 TO 5: RESTORE Iil00 
0 + 1000: READ N$: PRINT I; TAB 4-;N 

^ 70^PRINT paper 5; at 20.. 0;“ENTE 
R the number of the COMPOsi —tion 
THAT YOU UANT TO P*-AY _ , 

80 INPUT N. ULS : LET TT-10. L 

^90*RESTORE N+1000+1000 READ N 
$.R LET T=R+TT: SOUND 7,5b;B, x5 
9.15.10.15 

' 100 CLS : PRINT PAPER 5; "**f*'** 
+++ NOU PLAYING ********** i hT 2 
1,0; “NOU play INU ***** 

*110*PRINT AT 10,(31-LEN N$)/2;N 


*120 PRINT PAPER 3 
0;"TO STOP, PREbS 


INK 7,AT 20, 
SHIFT"" + 


^lio'^READ AF , AC , BF , BC , CF , CC , F , U : 
ON ERR GO TO 130: IF AF<0 THEN 


GO TO 150 
14-0 SOUND 


0,AF; 1,AC;2,BF, 3,BC; 4- 


CF;5.CC 

'l50 IF F<>99 THEN GO TO 170 
160 PAUSE T./U+60: GO TO 130 
170 BEEP T./U,F: GO TO 130 _ 

180 ON ERR RESET : IF 2$=“2 TH 
EN RESTORE Nil000+1010; GO TO lb 
0 

190 SOUND 7,63: CLS : PAPER _ 
PRINT AT 7,0;"PRESS ““l"- TO PLH 
Y AGAIN. 

200 PRINT “PRESS “"R"" TO PLAY 
CONTINUOUSLY. " 




130 


210 PRINT ; “PRESS 
DIFFERENTLY. 

220 PRINT ;“PRESS ""0“- 
ANOTHER 

230 PRINT "COMPOSITION. 


TO PLhY 
TO PLAY 
■ ; PAPER 


24-0 PAUSE 0; LET Z$ = INKEY$: IF 
Z$="l" OR Z*=“2“ THEN GO TO 90 
250 IF Z$="0“ THEN GO TO 50 
260 CLS : PRINT AT 6,0j“INPUT A 
NUMBER FOR THE DESIRED" 

270 PRINT "TEMPO. THE PROGRAMM 
ED TEMPO IS" 

280 PRINT "10. A SMALLER NUMBER 
UILL MAKE" 

290 PRINT "THE TEMPO FASTER; H 
LfiRGER ** 

300 PRINT "NUMBER UILL MAKE IT 
SLOWER." 

310 INPUT TT: GO TO 90 
320 SAUE "BOX 3" LINE 10 
2000 DATA " 'M 
3000 DATA “",1 
4-000 DATA " ".1 
5000 DATA " ‘M 
6000 DATA "'M 


* Explanation of the program * 

The program is a combination of 
Programs 15 and 25 without the 
option for changing the tonality 
of the compositions (in this 
respect the program is similar to 
Program 24). 


















I inioe; X 
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Hagner, R. 22 
Halt! 51, 55, 117 
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Return to Soreito 47 











NOTES 



NOTES 


















NOTES 



138 


NOTES 

















H 

11 


NOTES 








ELECTRET SCIENTIFIC COMPANY 
P.O.BOX NO. 4132 
STAR CITY. W.VA. 26505 









